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

I successfully built a wx86cl64 kernel with mingw-w64 + cygwin + win7-64bit (mingw-w64-bin_i686-cygwin-1.7.6-1_20100902, cygwin 1.7.7), using the method mentioned in ticket #733. But when I run (rebuild-ccl :clean t) using the new kernel and the svn check out image, an error occured, saying something like "an error occured during read of memory address 0x2e when calling (ccl:get-native-utf-16-cstring)". Then I changed back to the svn check out kernel, and everything was fine, a new image was successfully built. And I tried again with the new kernel + the new image, but the same error occured.

It seems that saving works correctly but whenever you save the following error is reported in the console:

[-NSData_concrete writeToFile:option:error:]: NSError not yet supported