Custom Query (1030 matches)

When executing build-application on windows instead of creating a .exe and a resource folder, build-applicaiton creates .app bundle which contains the .exe, the cocoa dll and the resource folder. It would be much better and more in line with the Windows way of doing things if build-application created a .exe file and a resource file without the .app bundle.

In level-1/l1-aprims.lisp, construct-setf-function-name should also test for #\" in the package-name, or it will confuse packages named ":" and "\":\"".

The following test case fails:

(defconstant ZERO #C(0.0d0 0.0d0))
(defconstant ONE #C(1.0d0 0.0d0))

(defun bug ()
  (LET ((RESULT (MAKE-ARRAY 2 :ELEMENT-TYPE '(COMPLEX DOUBLE-FLOAT)
                              :INITIAL-ELEMENT ZERO)))
    (DECLARE (TYPE (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (2)) RESULT))
    (SETF (AREF RESULT 0) ONE)
    (FORMAT T "~&Set 0th to 1: ~A~%" RESULT)
    (SETF (AREF RESULT 1) ONE)
    (FORMAT T "~&Set 1st to 1: ~A~%" RESULT)
    RESULT))

It looks like the second SETF isn't SETFing far enough into whatever underlying representing. I get

> (bug)
Set 0th to 1: #(#C(1.0D0 0.0D0) #C(0.0D0 0.0D0))
Set 1st to 0: #(#C(0.0D0 5.299808824D-315) #C(0.0D0 0.0D0))
#(#C(0.0D0 5.299808824D-315) #C(0.0D0 0.0D0))

which indicates the second SETF isn't getting far enough.