cmucl-imp

Download

cmucl-imp@lists.common-lisp.net

June 2013

2 discussions

[cmucl-imp] Lexical closures and FUNCALLABLE-STANDARD-CLASS
by Mark Cox 04 Jul '13

04 Jul '13

G'day, Invoking a FUNCALLABLE-STANDARD-OBJECT which has the lexical closure created below as its function signals an error. (defvar *a* nil) (defclass something () () (:metaclass pcl:funcallable-standard-class)) (defun ensure-something (function) (let ((s (make-instance 'something))) (pcl:set-funcallable-instance-function s function) (setf *a* s))) (let ((offset 1)) (ensure-something #'(lambda (a) (+ offset a 3)))) (print (funcall *a* 3)) ;; Should be 7. Compiling and loading the above code (just loading is not enough) should produce the following error on CMUCL 20D x86 Darwin Argument X is not a NUMBER: #<Closure Over Function "LET ((OFFSET 1))" {49854C01}>. [Condition of type SIMPLE-TYPE-ERROR] Thanks Mark

2 1

[cmucl-imp] Snapshot 2013-06
by Raymond Toy 02 Jun '13

02 Jun '13

Another month, another snapshot. Changes for this snapshot: o ASDF 3.0.1 o The Unicode extensions for CL:STRING-UPCASE and friends have been removed. You can find the extensions in UNICODE:STRING-UPCASE and friends. o REVERSE on strings is much faster o REVERSE on strings no longer preserves the order of surrogate pairs; they are reversed now, as required. Binaries will be uploaded soon. Ray

1 0