[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: making patterns the hard way
> I tried to make a pattern using make-record, but it didn't work.
MACL 2.0 final defines the pattern :record as a handle.
It used to (and I believe should be) defined as a pointer.
This will work...
(defvar *grid-x-pattern* (make-record (:pattern :storage :pointer)
(:array 0) 255
(:array 1) 0
(:array 2) 0
(:array 3) 0
(:array 4) 255
(:array 5) 0
(:array 6) 0
(:array 7) 0
>From: "Mark A. Tapia" <email@example.com>
>Here is code that may do you want:
Won't work under 2.0 final definition of :pattern