[wxCL-cvs] SF.net SVN: wxcl: [472] trunk/wxcl/src/object.lisp

[<efu...@us...>]

Revision: 472
Author:   efuzzyone
Date:     2006-03-19 04:27:03 -0800 (Sun, 19 Mar 2006)
ViewCVS:  http://svn.sourceforge.net/wxcl/?rev=472&view=rev

Log Message:
-----------
Changed defconstant to defvar. Thanks to Paul Viney and Clemens Fruhwirth.

Modified Paths:
--------------
    trunk/wxcl/src/object.lisp
Modified: trunk/wxcl/src/object.lisp
===================================================================
--- trunk/wxcl/src/object.lisp	2006-03-18 18:33:45 UTC (rev 471)
+++ trunk/wxcl/src/object.lisp	2006-03-19 12:27:03 UTC (rev 472)
@@ -38,12 +38,9 @@
 (defun make-point (x y)
   (make-instance 'point :x x :y y))
    
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (defconstant +default-position+
-    (make-instance 'point)))
+(defvar +default-position+
+  (make-instance 'point))
 
-
-
 (defclass size ()
   ((height :initarg :height :initform -1 :type integer :accessor size-height)
    (width :initarg :width :initform -1 :type integer :accessor size-width)))
@@ -59,11 +56,9 @@
 (defun make-size (width height)
   (make-instance 'size :width width :height height))
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (defconstant +default-size+
-    (make-instance 'size)))
+(defvar +default-size+
+  (make-instance 'size))
 
-
 (defconstant +size-auto-width+ 1)
 (defconstant +size-auto-height+ 2)
 (defconstant +size-use-existing+ 0)


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.