Re: clisp-cvs digest, Vol 1 #1369 - 4 msgs

[Yaroslav K. <kav...@je...>]

> From: Sam Steingold <sd...@us...>
> To: cli...@li...
> Subject: clisp/doc mop.xml,2.65,2.66
> Date: Tue, 13 Dec 2005 19:40:51 +0000
> Reply-To: cli...@li...
> 
> Update of /cvsroot/clisp/clisp/doc
> In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3690/doc
> 
> Modified Files:
> 	mop.xml 
> Log Message:
> reverted the 2005-12-11 patch: do print #<UNBOUND> as we do in many
> other places, it appears that other implementations do that too

Besides other:

[1]> (defclass constructor ()
  ((name :initarg :name :accessor constructor-name)
   (fields :initarg :fields :accessor constructor-fields))
  (:metaclass funcallable-standard-class))
#<FUNCALLABLE-STANDARD-CLASS CONSTRUCTOR>
[2]> (defmethod initialize-instance :after ((c constructor) &KEY)
  (with-slots (name fields) c
    (set-funcallable-instance-function
      c
      #'(lambda ()
          (let ((new (make-array (1+ (length fields)))))
            (setf (aref new 0) name)
            new)))))
#<STANDARD-METHOD :AFTER (#<FUNCALLABLE-STANDARD-CLASS CONSTRUCTOR>)>
[3]> (setq c1 (make-instance 'constructor
                        :name 'position :fields '(x y)))
#<CONSTRUCTOR #<UNBOUND>>
[4]> (describe 'c1)

C1 is the symbol C1, lies in #<PACKAGE COMMON-LISP-USER>, is accessible
in 1 package COMMON-LISP-USER, a
variable, value: #<CONSTRUCTOR #<UNBOUND>>.

 #<PACKAGE COMMON-LISP-USER> is the package named COMMON-LISP-USER. It
has 2 nicknames CL-USER, USER.
 It imports the external symbols of 2 packages COMMON-LISP, EXT and
exports no symbols, but no package uses
 these exports.

 #<CONSTRUCTOR #<UNBOUND>> is
*** - The value of (TYPE-OF SYSTEM::OBJ) must be one of
FFI:FOREIGN-FUNCTION, COMPILED-FUNCTION, FUNCTION
      The value is: CONSTRUCTOR
The following restarts are available:
ABORT          :R1      ABORT
Break 1 [5]>

Thanks!

-- 
WBR, Yaroslav Kavenchuk.