Custom Query (1030 matches)

The following results in a bad error under CCL 1.10 / Win64. it does work as expected under Win32 :

(defun define-char (character &rest data)
  (let ((chardata (make-array (list (length data) (length (car data)))
                              :element-type 'bit
                              )))
    (loop for m from 0
       for item in data
       do (loop for n from 0
             for bit in (coerce item 'list)
             do (setf (aref chardata m n) (if (zerop bit) 0 1))
               ))))


(define-char #\Space
    #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0))

? (load "c:/temp/foo.lisp")
;Compiler warnings for "c:/temp/foo.lisp" :
;   In DEFINE-CHAR: Unused lexical variable CHARACTER
> Error: Fault during read of memory address #xB
> While executing: DEFINE-CHAR, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.}}}

Dan Weinreb 2008-11-24 13:41:13 EST Section 11.1.2.1.2 of the CL manual says that it's "undefined" what happens if you try to rebind a symbol in the CL package. SBCL complains if you try to do a macrolet on a CL symbol, such as "log" (which actually happened). I think it would be nice if this caused a compiler warning or error. (As you may know, I am hoping to eliminate the places where our CCL buildbot succeeds but the SBCL buildbot fails. Often SBCL explicitly outlaws things that are defined to be undefined by the satndard.)

Dan Weinreb 2008-12-05 10:58:05 EST It would be nice to have a way to get "monotonic" time from Linux, which is obtained by

clock_gettime(CLOCK_MONOTONIC, &ts);

Priority: If you have to wash your dog, do that first.

NB: This was ITA bug 51985.