Custom Query (1030 matches)
Results (898 - 900 of 1030)
| Ticket | Resolution | Summary | Owner | Reporter |
|---|---|---|---|---|
| #1087 | fixed | Can't compile Maxima on a Raspberry Pi with CCL (arm architecture) | ||
| Description |
While trying to compile the lisp-only build of Maxima, I encountered a bug which seems to be related to the ARM compiler in CCL. Here are the last lines of the compilation: ;Compiling "/home/pi/maxima-5.29.1/src/numerical/slatec/zlog.lisp"... ;Loading #P"binary-openmcl/numerical/slatec/zlog.lafsl"... ;Compiling "/home/pi/maxima-5.29.1/src/numerical/slatec/zunik.lisp"... ;Loading #P"binary-openmcl/numerical/slatec/zunik.lafsl"... ;Compiling "/home/pi/maxima-5.29.1/src/numerical/slatec/zunhj.lisp"... ;Loading #P"binary-openmcl/numerical/slatec/zunhj.lafsl"... ;Compiling "/home/pi/maxima-5.29.1/src/numerical/slatec/zuoik.lisp"... ;Loading #P"binary-openmcl/numerical/slatec/zuoik.lafsl"... ;Compiling "/home/pi/maxima-5.29.1/src/numerical/slatec/zuni1.lisp"... ;Loading #P"binary-openmcl/numerical/slatec/zuni1.lafsl"... ;Compiling "/home/pi/maxima-5.29.1/src/numerical/slatec/zkscl.lisp"... ;Loading #P"binary-openmcl/numerical/slatec/zkscl.lafsl"... ;Compiling "/home/pi/maxima-5.29.1/src/numerical/slatec/zshch.lisp"... ;Loading #P"binary-openmcl/numerical/slatec/zshch.lafsl"... ;Compiling "/home/pi/maxima-5.29.1/src/numerical/slatec/zbknu.lisp"... > Error: PC-relative displacement can't be encoded. > While executing: (:INTERNAL #:G5915 ARM::ARM-FINALIZE), in process listener(1). > Type :POP to abort, :R for a list of available restarts. > Type :? for other options. 1 > ? |
|||
| #1093 | fixed | directory can't handle /**/ | ||
| Description |
Welcome to Clozure Common Lisp Version 1.10-dev-r15846M-trunk (DarwinX8664)! ? (directory #P"~/directory-with-one-subdirectory/**/") > Error: The value NIL is not of the expected type STRUCTURE. > While executing: CCL::%PROCESS-DIRECTORY-RESULT, in process Listener(4). > Type cmd-. to abort, cmd-\ for a list of available restarts. > Type :? for other options. 1 > This used to work. Welcome to Clozure Common Lisp Version 1.10-dev-r15778M-trunk (DarwinX8664)! ? (directory #P"~/directory-with-one-subdirectory/**/") (#P"/Users/alms/directory-with-one-subdirectory/" #P"/Users/alms/directory-with-one-subdirectory/the-one-subdirectory/") ? |
|||
| #1096 | fixed | defsetf ignorable declarations are ignored. | ||
| Description |
It seems the way ignore or ignorable declarations are implemented with defsetf doesn't make them entirely ignored, since a warning is still issued, and indeed, an uninterned symbol used in place of the parameter is still present and not declared anymore as ignored or ignorable. (defgeneric bug (x y &optional z))
(defmethod bug ((x integer) y &optional z)
(declare (ignorable z))
(+ x y))
(defmethod bug ((x string) y &optional z)
(list (aref x y) z))
(defun set-bug (x y new-value)
(+ x y new-value))
(defsetf bug (x y &optional z) (new-value)
(declare (ignorable z))
`(set-bug ,x ,y ,new-value))
(defun f ()
(setf (bug 42 0) 33))
(eval-when (:load-toplevel :execute)
(pprint (swank-backend:macroexpand-all
'(defun f ()
(setf (bug 42 0) 33)))))
#|
dictionary> (load (compile-file #P"~/ccl-bug.lisp"))
;Compiler warnings for "home:ccl-bug.lisp.newest" :
; In f: Unused lexical variable #:z
(progn (ccl::%defun (ccl:nfunction f
lambda
nil
(declare (ccl::global-function-name f))
(block f
(let* ((#:g90598 42) (#:g90597 0))
(declare (ignorable #:g90598 #:g90597))
(multiple-value-call
(lambda (&optional #:g90596 &rest #:ignore)
(declare (ignore #:ignore))
((lambda (#:x #:y &optional #:z) (set-bug #:x #:y #:g90596))
#:g90598 #:g90597))
33))))
'nil)
'f)#P"/home/pjb/ccl-bug.lx64fsl"
|#
|
|||
Note:
See TracQuery
for help on using queries.
