Changeset 12935


Ignore:
Timestamp:
10/02/10 07:36:08 (11 years ago)
Author:
ehuelsmann
Message:

Fix #107: Incorrect compilation of (SETF STRUCTURE-REF) expansion.

Location:
trunk/abcl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/setf.lisp

    r12516 r12935  
    242242
    243243(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  
    9797  (1 2)
    9898  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.