AccelerationNet / access

A common lisp library to unify access to common dictionary-like data-structures
Other
84 stars 12 forks source link

Library fails to load under latest sbcl (1.2.13) #5

Closed ahungry closed 9 years ago

ahungry commented 9 years ago

Please see the following error output, the &aux and &environment calls need to be reversed.

; file: /home/mcarter/quicklisp/dists/quicklisp/software/access-20150407-git/access.lisp
; in: DEFINE-SETF-EXPANDER ACCESS
;     (DEFINE-SETF-EXPANDER ACCESS:ACCESS
;                           (ACCESS::PLACE ACCESS::K
;                            &KEY TYPE ACCESS::TEST ACCESS::KEY &ENVIRONMENT
;                            ACCESS::ENV
;                            &AUX (ACCESS::NEW-VAL (GENSYM "NEW-VAL"))
;                            (ACCESS::PLACE-STORE (GENSYM "PLACE")))
;       "This should allow setting places through access"
;       (DECLARE (IGNORE ACCESS::ENV))
;       (VALUES NIL NIL `(,ACCESS::NEW-VAL)
;               `(PROGN
;                 (MULTIPLE-VALUE-BIND (,ACCESS::NEW-VAL ,ACCESS::PLACE-STORE)
;                     (ACCESS:SET-ACCESS ,ACCESS::NEW-VAL ,ACCESS::PLACE ,ACCESS::K
;                      :TEST ,ACCESS::TEST :TYPE ,TYPE :KEY ,ACCESS::KEY)
;                   (SETF #)
;                   ,ACCESS::NEW-VAL))
;               `(ACCESS:ACCESS ,ACCESS::PLACE ,ACCESS::K :TEST ,ACCESS::TEST :TYPE
;                 ,TYPE :KEY ,ACCESS::KEY)))
;
; caught ERROR:
;   (during macroexpansion of (DEFINE-SETF-EXPANDER ACCESS ...))
;   misplaced &AUX in lambda list: (PLACE K &KEY TYPE TEST KEY &ENVIRONMENT ENV
;                                   &AUX (NEW-VAL (GENSYM "NEW-VAL"))
;                                   (PLACE-STORE (GENSYM "PLACE")))
..
debugger invoked on a UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread
#<THREAD "main thread" RUNNING {1002C465A3}>:
  COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "access" "access">

Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [RETRY                        ] Retry
                                     compiling #<CL-SOURCE-FILE "access" "access">.
  1: [ACCEPT                       ] Continue, treating
                                     compiling #<CL-SOURCE-FILE "access" "access">
                                     as having been successful.
  2:                                 Retry ASDF operation.
  3: [CLEAR-CONFIGURATION-AND-RETRY] Retry ASDF operation after resetting the
                                     configuration.
  4: [ABORT                        ] Give up on "access"
  5:                                 Exit debugger, returning to top level.

(UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "access" "access">)))