Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Doesn't build today - funcall glitch? #1

Closed
quicklisp opened this issue Aug 12, 2013 · 2 comments
Closed

Doesn't build today - funcall glitch? #1

quicklisp opened this issue Aug 12, 2013 · 2 comments

Comments

@quicklisp
Copy link

I get this when I try to build today in SBCL?

; file: /home/xach/quicklisp-controller/dist/build-cache/clsql-helper/fb32d8db2f4c59e2110d337efb4a28cfb9d9561c/clsql-helper-20130811-git/clsql.lisp
; in: DEFUN MAKE-INSTANCES-SETTING-ACCESSORS
;     (ITERATE:ITER
;       (ITERATE:FOR CLSQL-HELPER::ROW ITERATE:IN CLSQL-HELPER::ROWS)
;       (ITERATE:FOR CLSQL-HELPER::O = (MAKE-INSTANCE CLASS))
;       (ITERATE:ITER
;         (ITERATE:FOR CLSQL-HELPER::C ITERATE:IN CLSQL-HELPER::COLUMNS)
;         (ITERATE:FOR CLSQL-HELPER::D ITERATE:IN CLSQL-HELPER::ROW)
;         (ITERATE:FOR CLSQL-HELPER::SETTER = `(SETF ,CLSQL-HELPER::C))
;         (ITERATE:FOR CLSQL-HELPER::FN =
;          (COMPUTE-APPLICABLE-METHODS CLSQL-HELPER::SETTER
;                                      (LIST CLSQL-HELPER::D CLSQL-HELPER::O)))
;         (WHEN CLSQL-HELPER::FN
;           (FUNCALL CLSQL-HELPER::SETTER CLSQL-HELPER::D CLSQL-HELPER::O)))
;       (ITERATE:COLLECT CLSQL-HELPER::O))
; --> LET* BLOCK TAGBODY PROGN LET* BLOCK TAGBODY PROGN IF PROGN FUNCALL 
; --> SB-C::%FUNCALL 
; ==>
;   CLSQL-HELPER::D
; 
; note: deleting unreachable code

; --> LET* BLOCK TAGBODY PROGN LET* BLOCK TAGBODY PROGN IF PROGN FUNCALL 
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CLSQL-HELPER::SETTER)
; 
; caught WARNING:
;   Derived type of SETTER is (VALUES CONS &OPTIONAL), conflicting with its asserted type (OR FUNCTION SYMBOL).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10034AC353}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "clsql-helper" "clsql">

Is this supposed to be funcalling FN instead of SETTER?

@bobbysmith007
Copy link
Member

Haven't changed that in ages and thought it was working, but it obviously is not now. Looking into this and adding tests.

@bobbysmith007
Copy link
Member

Is this supposed to be funcalling FN instead of SETTER?

As a note, the SB-MOP:STANDARD-WRITER-METHOD returned by compute-applicable-methods is not funcallable, while the generic function located at (fdefinition (setf ,name))` is.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

2 participants