Changeset 12935
- Timestamp:
- 10/02/10 07:36:08 (10 years ago)
- Location:
- trunk/abcl
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/setf.lisp
r12516 r12935 242 242 243 243 (defsetf stream-external-format %set-stream-external-format) 244 245 (defsetf structure-ref structure-set) -
trunk/abcl/test/lisp/abcl/misc-tests.lisp
r12402 r12935 97 97 (1 2) 98 98 19) 99 100 ;; executed of the compiled expression below 101 ;; resulted in an error on pre-0.23 versions 102 (defstruct mystruct slot) 103 (deftest ticket.107 104 (funcall (compile nil 105 '(lambda () 106 (let ((struct (make-mystruct)) 107 x) 108 (setf (values (mystruct-slot struct) 109 x) 110 (values 42 2)))))) 111 42 2)
Note: See TracChangeset
for help on using the changeset viewer.