Newsgroups: comp.lang.lisp.mcl,comp.windows.garnet
Path: cantaloupe.srv.cs.cmu.edu!rochester!udel!news.sprintlink.net!newsfeed.internetmci.com!in1.uu.net!statsci.com!news!almond
From: almond@bass.statsci.com (Russell G. Almond)
Subject: Changes in :pattern record (Compiling Garnet in MCL 3.0p2)
X-Nntp-Posting-Host: bass
Message-ID: <ALMOND.95Oct26124158@bass.statsci.com>
Sender: news@statsci.com (Usenet News Account)
Organization: StatSci div. of MathSoft, Seattle, WA USA
Date: Thu, 26 Oct 1995 19:41:58 GMT
Lines: 43
Xref: glinda.oz.cs.cmu.edu comp.lang.lisp.mcl:8052 comp.windows.garnet:1090


I'm trying to compile Garnet version 3.0 in MCL 3.0.p2 (the Garnet
people originally compiled it in MCL 2.0.1).  I'm getting an error
when loading the file opal:mac.lisp.

It seems to revolve around the function:

(defun MAC-device-image (root-window index)
  (declare (ignore root-window))
  (let* ((desc (opal::get-descriptor index))
         (b0 (bit-vector-to-int (first desc)))
         (b1 (bit-vector-to-int (second desc)))
         (b2 (bit-vector-to-int (third desc)))
         (b3 (bit-vector-to-int (fourth desc))))
    (ccl:make-record (:pattern :storage :pointer)
            (:array 0) b0   (:array 1) b1
            (:array 2) b2   (:array 3) b3
            (:array 4) b0   (:array 5) b1
            (:array 6) b2   (:array 7) b3)))

It complains that the :pattern record type doesn't have a field array
just a field :pat.

I assume that this is some sort of change in the specification of the
:pattern record type from MCL 2.0.1 to MCL 3.0p2.  Two questions:

1) How do I fix this code so it works under MCL 3.0p2?

2) How do I find out about the lisp specifications for Mac Toolbox
records?  (So I can fix future problems.)

Thanks for your help.

			Russell Almond			   
StatSci (a division of MathSoft)
1700 Westlake Ave., N Suite 500, Seattle, WA  98109		
(206) 283-8802 x234 FAX:  (206) 283-6310  Email: almond@statsci.com	
Home Page:  http://bayes.stat.washington.edu/almond/almond.html

"Everything follows from the measure-zeroness of imperfection."
	--(Overheard at a seminar)


