> * Bruno Haible <un...@hf...g> [2005-01-24 10:31:20 +0000]:
>
> (cl:defun export-accessories (name)
> (export name)
> - (export (clos::class-kconstructor name))
> - (export (clos::class-predicate name))
> + (export (or (clos::class-kconstructor name) '(NIL)))
> (export (clos::class-boa-constructors name))
> + (export (or (clos::class-copier name) '(NIL)))
> + (export (or (clos::class-predicate name) '(NIL)))
> (export (class-accessor-symbols name)))
why do you want to export the symbol NIL?
> (cl:defmacro defstruct (name+options &rest slots)
> - `(let ((name (CL:DEFSTRUCT ,name+options ,@slots)))
> - (EXPORT-ACCESSORIES name)
> - name))
> + `(LET ((NAME (CL:DEFSTRUCT ,name+options ,@slots)))
> + (EXPORT-ACCESSORIES NAME)
> + NAME))
>
> (cl:defmacro defclass (name superclasses slot-specs &rest options)
> `(PROGN
> @@ -166,9 +167,9 @@
>
> #+FFI
> (cl:defmacro def-c-struct (name+options &rest slots)
> - `(let ((name (FFI:DEF-C-STRUCT ,name+options ,@slots)))
> - (EXPORT-ACCESSORIES name)
> - name))
> + `(LET ((NAME (FFI:DEF-C-STRUCT ,name+options ,@slots)))
> + (EXPORT-ACCESSORIES NAME)
> + NAME))
>
> #+FFI
> (cl:defmacro def-c-var (name &rest options)
>
> Index: ChangeLog
> ===================================================================
> RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
> retrieving revision 1.4122
> retrieving revision 1.4123
> diff -u -d -r1.4122 -r1.4123
> --- ChangeLog 24 Jan 2005 10:29:41 -0000 1.4122
> +++ ChangeLog 24 Jan 2005 10:31:17 -0000 1.4123
> @@ -1,5 +1,10 @@
> 2005-01-23 Bruno Haible <br...@cl...>
>
> + * exporting.lisp (export-accessories): Also export the copier's name.
> + Fixes bug introduced on 2005-01-04.
> +
> +2005-01-23 Bruno Haible <br...@cl...>
> +
> * describe.lisp (apropos): Terminate the output with an elastic-newline,
> not a fresh-line.
>
>
>
>
--
Sam Steingold (http://www.podval.org/~sds) running w2k
<http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/>
<http://www.mideasttruth.com/> <http://www.honestreporting.com>
When we write programs that "learn", it turns out we do and they don't.
|
