cl-escape-team team mailing list archive

[OK2 <ddeus.lp@xxxxxxxxxxxx>]

Hi!

Warum eigentlich so:
(defun lv (cont &optional declarations)
  `(lambda (self ,*v*)
     (declare (ignorable self ,*v*))
     ,@declarations
     ,cont))

(defun lvwrap (value cont)
  `(st :v ,value
       :c ,(lv cont)))

und nicht so:
(defun lv (value cont &optional declarations)
  `(lambda (self)
     (declare (ignorable self))
     ,@declarations
     (let ((,*v* ,value))
       (declare (ignorable ,*v*))
       ,cont)))

Also gar keine st Struktur, sondern nur die Lambas.

Viele Grüße,
Alex.