Custom Query (1030 matches)

Welcome to Clozure Common Lisp Version 1.9-r15758 (DarwinX8632)!

? (defstruct (foo (:constructor make-foo (mask)))

(mask 0 :type (unsigned-byte 64)))

(make-foo 4177526783)

Error: The value 4177526783 is not of the expected type (UNSIGNED-BYTE 64). While executing: MAKE-FOO, in process listener(1). Type :POP to abort, :R for a list of available restarts. Type :? for other options.

The following code was taken from Sonja E. Keene's book Object-Oriented Programming in Common Lisp pages 20-22.

(defclass lock ()
  ((name :initarg :name :reader lock-name))
  (:documentation "The foundation of all locks."))

(defclass null-lock (lock)
  ()
  (:documentation "A lock that is always free."))

(defclass simple-lock (lock)
  ((owner :initform nil :accessor lock-owner))
  (:documentation "A lock that is either free or busy."))

The debugger outputs the following:

Class option :DOCUMENTATION is not one of (:NAME)
   [Condition of type CCL::SIMPLE-PROGRAM-ERROR]
Backtrace:
  0: ((:INTERNAL CCL::FCOMP-MACROEXPAND-1) #<CCL::SIMPLE-PROGRAM-ERROR #x302001A53CCD>)
  1: (SIGNAL #<CCL::SIMPLE-PROGRAM-ERROR #x302001A53CCD>)
  2: (CCL::%ERROR #<CCL::SIMPLE-PROGRAM-ERROR #x302001A53CCD> NIL 17578517607375)
  3: (DEFCLASS (DEFCLASS LOCK () ((NAME :INITARG :NAME :READER LOCK-NAME)) (:DOCUMENTATION "The foundation of all locks.")) #<CCL::LEXICAL-ENVIRONMENT #x302001A5C6CD>)
  4: (FUNCALL #<Compiled-function DEFCLASS Macroexpander #x3000008F698F> (DEFCLASS LOCK () ((NAME :INITARG :NAME :READER LOCK-NAME)) (:DOCUMENTATION "The foundation of all locks.")) #<CCL::LEXICAL-ENVIRONM..
  5: (MACROEXPAND-1 (DEFCLASS LOCK () ((NAME :INITARG :NAME :READER LOCK-NAME)) (:DOCUMENTATION "The foundation of all locks.")) #<CCL::LEXICAL-ENVIRONMENT #x302001A5C6CD>)
  6: (CCL::FCOMP-MACROEXPAND-1 (DEFCLASS LOCK () ((NAME :INITARG :NAME :READER LOCK-NAME)) (:DOCUMENTATION "The foundation of all locks.")) #<CCL::LEXICAL-ENVIRONMENT #x302001A5C6CD>)
  7: (CCL::FCOMP-FORM-1 (DEFCLASS LOCK () ((NAME :INITARG :NAME :READER LOCK-NAME)) (:DOCUMENTATION "The foundation of all locks.")) #<CCL::LEXICAL-ENVIRONMENT #x302001A5C6CD> :NOT-COMPILE-TIME)
  8: (CCL::FCOMP-FORM (DEFCLASS LOCK () ((NAME :INITARG :NAME :READER LOCK-NAME)) (:DOCUMENTATION "The foundation of all locks.")) #<CCL::LEXICAL-ENVIRONMENT #x302001A5C6CD> :NOT-COMPILE-TIME)
  9: (CCL::FCOMP-READ-LOOP "/home/sian/lisp/locks.lisp" "home:lisp;locks.lisp.newest" 0 #<CCL::LEXICAL-ENVIRONMENT #x302001A5C6CD> :NOT-COMPILE-TIME)
 10: (CCL::FCOMP-FILE "/home/sian/lisp/locks.lisp" "home:lisp;locks.lisp.newest" 0 #<CCL::LEXICAL-ENVIRONMENT #x302001A5C6CD>)
 11: (CCL::%COMPILE-FILE "/home/sian/lisp/locks.lisp" "/home/sian/lisp/locks.lx64fsl" T NIL T T NIL T :DEFER NIL #<BACKEND LINUXX8664 #x3020001CDE3D> :DEFAULT NIL 0)
 12: (COMPILE-FILE #P"/home/sian/lisp/locks.lisp" :OUTPUT-FILE #P"/home/sian/lisp/locks.lx64fsl" :VERBOSE T :PRINT NIL :LOAD NIL :FEATURES NIL :TARGET :LINUXX8664 :SAVE-LOCAL-SYMBOLS T :SAVE-DOC-STRINGS T ..

I'm using OS X 10.9. The new search files seems to work but it doesn't show the pathnames - see attached screenshot.

Possibly related, possibly not, I get these warnings when compiling the IDE:

;Compiler warnings for "ccl:cocoa-ide;search-files.lisp.newest" :
;   In %TREE-NODE-FOR-GREP-RESULT: Undeclared free variable NAVIGATOR-SEARCH-NODE-DATA (2 references)
;   In |-[SearchFilesWindowController awakeFromNib]|: Undeclared free variable GREP-RESULTS-DATA-SOURCE