[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv9277/Drei

Modified Files:
	drei-redisplay.lisp 
Log Message:
Define the face and drawing-options structs at compile-time.


--- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2008/01/28 08:25:34	1.52
+++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2008/01/30 12:46:12	1.53
@@ -91,13 +91,14 @@
 ;;;
 ;;; The standard redisplay implementation for buffer views.
 
-(defstruct face
-  "A face is a description of how to draw (primarily) text, it
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (defstruct face
+    "A face is a description of how to draw (primarily) text, it
 consists of an ink (a colour) and a text style. The text style
 may be incomplete, in which case it is merged with the default
 text style whenever it needs to be used."
-  (ink +foreground-ink+)
-  (style nil))
+    (ink +foreground-ink+)
+    (style nil)))
 
 (defconstant +default-stroke-drawer-dispatcher+
   #'(lambda (stream view stroke cursor-x cursor-y default-drawing-fn draw)
@@ -107,10 +108,11 @@
 arguments. Used as the default drawing-function of
 `drawing-options' objects.")
 
-(defstruct drawing-options
-  "A set of options for how to display a stroke."
-  (face (make-face))
-  (function +default-stroke-drawer-dispatcher+))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (defstruct drawing-options
+    "A set of options for how to display a stroke."
+    (face (make-face))
+    (function +default-stroke-drawer-dispatcher+)))
 
 (defun drawing-options-equal (o1 o2)
   "Return true if `o1' and `o2' are equal, that is, they specify