dev-lisp/cl-acclaim/files/0.25-cmucl-eval-when-gentoo.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

--- code/image-reader.lisp~     2004-06-11 17:57:44.000000000 -0500
+++ code/image-reader.lisp      2004-12-21 23:08:14.000000000 -0600
@@ -129,10 +129,10 @@

 ;;;; Images
 ;; Protocol class
-
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (defclass image ()
   ((max-level :initarg :max-level :type card-8 :reader image-max-level)
-   (pixels :initarg :pixels :type pixarray :reader image-pixels)))
+   (pixels :initarg :pixels :type pixarray :reader image-pixels))))

 (defgeneric image-width (image))
 (defgeneric image-height (image))