From: Kevin R. <kp...@at...> - 2005-07-29 18:56:57
|
(eval-when (:compile-toplevel :load-toplevel :execute) (defclass foo () ()) (defmethod make-load-form ((bar foo) &optional environment) (make-load-form-saving-slots bar :environment environment))) (defun baz () '#.(make-instance 'foo)) CL-USER(17): (compile-file "make-load-form-test.lisp") ; Compiling /Volumes/Gamma/External/Projects/cl-e-abcl/make-load-form-test.lisp... Debugger invoked on condition of type SIMPLE-ERROR: COMPILE-CONSTANT unhandled case #<FOO {4713E1}> -- Kevin Reid <http://homepage.mac.com/kpreid/> |
From: Peter G. <pe...@ar...> - 2005-08-02 04:46:44
|
On Fri, 29 Jul 2005 at 14:56:46 -0400, Kevin Reid wrote: > (eval-when (:compile-toplevel :load-toplevel :execute) > (defclass foo () ()) > > (defmethod make-load-form ((bar foo) &optional environment) > (make-load-form-saving-slots bar :environment environment))) > > (defun baz () > '#.(make-instance 'foo)) > > CL-USER(17): (compile-file "make-load-form-test.lisp") > ; Compiling > /Volumes/Gamma/External/Projects/cl-e-abcl/make-load-form-test.lisp... > Debugger invoked on condition of type SIMPLE-ERROR: > COMPILE-CONSTANT unhandled case #<FOO {4713E1}> This is now fixed in CVS. Thanks! -Peter |