Loading src/pcl/braid.lisp +1 −0 Original line number Diff line number Diff line Loading @@ -296,6 +296,7 @@ (set-slot 'wrapper wrapper) (set-slot 'predicate-name (or (cadr (assoc name *early-class-predicates*)) (make-class-predicate-name name))) (set-slot 'documentation nil) (set-slot 'plist `(,@(and direct-default-initargs `(direct-default-initargs ,direct-default-initargs)) Loading tests/interface.pure.lisp +5 −0 Original line number Diff line number Diff line Loading @@ -104,3 +104,8 @@ (sb-ext:with-timeout 3 (sleep 2) (sleep 2))) ;;; DOCUMENTATION should return nil, not signal slot-unbound (documentation 'fixnum 'type) (documentation 'class 'type) (documentation (find-class 'class) 'type) version.lisp-expr +1 −1 Original line number Diff line number Diff line Loading @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) "0.8.4.17" "0.8.4.18" Loading
src/pcl/braid.lisp +1 −0 Original line number Diff line number Diff line Loading @@ -296,6 +296,7 @@ (set-slot 'wrapper wrapper) (set-slot 'predicate-name (or (cadr (assoc name *early-class-predicates*)) (make-class-predicate-name name))) (set-slot 'documentation nil) (set-slot 'plist `(,@(and direct-default-initargs `(direct-default-initargs ,direct-default-initargs)) Loading
tests/interface.pure.lisp +5 −0 Original line number Diff line number Diff line Loading @@ -104,3 +104,8 @@ (sb-ext:with-timeout 3 (sleep 2) (sleep 2))) ;;; DOCUMENTATION should return nil, not signal slot-unbound (documentation 'fixnum 'type) (documentation 'class 'type) (documentation (find-class 'class) 'type)
version.lisp-expr +1 −1 Original line number Diff line number Diff line Loading @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) "0.8.4.17" "0.8.4.18"