Custom Query (1030 matches)

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 ..

When compiling the kernel with mingw-w64 + cygwin + win7-64bit (mingw-w64-bin_i686-cygwin-1.7.6-1_20100902, cygwin 1.7.7), lots of "undefined reference" errors will be emitted. Removing "define(CNamesNeedUnderscores',')" from "ifdef(`WINDOWS'...)" in m4macros.m4 will solve the problem.

Reported in ​http://clozure.com/pipermail/openmcl-devel/2009-May/009383.html. Test case:

(defun test ()
  (let ((array (make-array '(1 1) :initial-element 2.0
                           :element-type 'single-float))
        (var 1.0))
    (setf (aref array 0 0) var
          var nil)))