[clisp-list] Re: impnotes: 29.1.10.2. Funcallable Instances

[Sam S. <sd...@gn...>]

> * Yaroslav Kavenchuk <xnirapuhx@ghg.ol> [2005-12-11 12:46:27 +0200]:
>
> clisp from CVS head, mingw
>
> [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]> (setq p1 (funcall c1))
> #(POSITION NIL NIL)
> [5]>

I fixed the manual, thanks.

-- 
Sam Steingold (http://www.podval.org/~sds) running w2k
http://www.openvotingconsortium.org/ http://www.memri.org/
http://www.camera.org http://www.savegushkatif.org http://www.mideasttruth.com/
The only intuitive interface is the nipple.  The rest has to be learned.