- May 24, 2005
- May 23, 2005
-
-
rtoy authored
string.
-
rtoy authored
Description: In (peek-char nil s nil foo), if foo happens to be the same character that peek-char returns, the character is removed from the input stream, as if read by read-char. Examples: * (with-input-from-string (s "123") (list (peek-char nil s nil #\1) (read-char s) (read-char s))) (#\1 #\2 #\3) This fix is based on the version proposed by Rudi Schlatte, with minor changes in naming.
-
rtoy authored
;; Shared slot becomes local. ;; 4.3.6.1.: "The value of a slot that is specified as shared in the old class ;; and as local in the new class is retained." (multiple-value-bind (value condition) (ignore-errors (defclass foo85a () ((size :initarg :size :initform 1 :allocation :class))) (defclass foo85b (foo85a) ()) (setq i (make-instance 'foo85b)) (defclass foo85a () ((size :initarg :size :initform 2) (other))) (slot-value i 'size)) (list value (type-of condition))) Expected: (1 NULL)
-
rtoy authored
This is also for something Bruno reported: The MOP p. 47 says about ensure-class-using-class: "The :metaclass argument is a class metaobject class or a class metaobject class name." However, CMUCL 19a does not support passing a class here.
-
rtoy authored
The problem here is that a fixnum value gets stored in an unsigned-byte vector, which messes up the linked list.
-
- May 19, 2005
-
-
rtoy authored
short and fit on one line.
-
- May 17, 2005
- May 16, 2005
-
-
rtoy authored
Bruno reported an endless loop in the following test case: (let ((tab (make-hash-table :test 'eq :weak-p t))) (let ((a (list 'x))) (let ((b (list 'y))) (setf (gethash a tab) 'xxx) (setf (gethash b tab) (cons 'yyy b))) (gc) (list (hash-table-count tab) (gethash a tab) (let ((l nil)) (maphash #'(lambda (k v) (push k l)) tab) l)))) But we return (2 XXX ((Y) (X))) instead of (1 XXX ((X))).
-
rtoy authored
This is another small fix for a problem Bruno reported: ;; 3.4.10 Define-method-combination Arguments Lambda Lists (progn (define-method-combination w-args () ((method-list *)) (:arguments arg1 arg2 &aux (extra :extra)) `(progn , <at> (mapcar #'(lambda (method) `(call-method ,method)) method-list))) (defgeneric mc-test-w-args (p1 p2 s) (:method-combination w-args) (:method ((p1 number) (p2 t) s) (vector-push-extend (list 'number p1 p2) s)) (:method ((p1 string) (p2 t) s) (vector-push-extend (list 'string p1 p2) s)) (:method ((p1 t) (p2 t) s) (vector-push-extend (list t p1 p2) s))) (let ((s (make-array 10 :adjustable t :fill-pointer 0))) (mc-test-w-args 1 2 s) s)) Expected: #((NUMBER 1 2) (T 1 2)) Got: ERROR: Lambda-variable is not a symbol: (EXTRA :EXTRA).
-
- May 14, 2005
- May 12, 2005
-
-
rtoy authored
(declare (type fixnum n) (type bar x)) We now get (declare (type fixnum n) (type bar x))
-
- May 11, 2005
-
-
rtoy authored
-
rtoy authored
:absolute or :wild-inferiors followed by :up or :back. Not exactly sure what pathname to use here since we don't accept these pathnames. So we use the given pathname with the :up/:back deleted. And the format strings gives more info about what happened. Fixes ansi-test MAKE-PATHNAME-ERROR-RELATIVE-WILD-INFERIORS-UP and friends.
-
rtoy authored
function. See CLHS entry for DISASSEMBLE. Fixes ansi-test disassemble.error.3
-
rtoy authored
valid function name. o Make the setf function-name-syntax try return the function name even if it's not a valid setf function name. o Use the above changes to fill out more completely and correctly the simple-type-error in FDEFINITION-OBJECT, when the function name is not valid. This fixes ansi-tests for fboundp and friends where the datum was a type of expected-type or where the datum had the wrong name.
-
- May 10, 2005
- May 09, 2005
-
-
rtoy authored
-
rtoy authored
o Add PROPER-LIST-P function to determine if a list is a proper list. o Use it as the expected type for errors from functions requiring a proper list code/symbol.lisp: o Add VALID-PROPERTY-LIST-P function. o Use it as the expected type for errors from malformed property lists. These changes fix a few ansi-test bugs where the test was checking if the the expected-type was correct.
-
rtoy authored
can intersect any array, Fixes ansi-test misc.537.
-
rtoy authored
should not be since the Lisp objects in the allocation aren't initialized properly inside the pseudo-atomic section. (There might be more cases of this.)
-
rtoy authored
vector (to prevent confusion when the vector has a fill-pointer). Also note if the vector is adjustable or not.
-
rtoy authored
in case the source array has a fill pointer.
-
- May 06, 2005
-
-
rtoy authored
a list.
-
rtoy authored
Slightly modified version of the patch by Helmut Eller, cmucl-imp, 2005-05-05.
-
rtoy authored
disassembling the wrong closure sometimes. Now use the offset of the function instead of the function name to match the corresponding debug-function. Patch from Helmut Eller, cmucl-imp, 2005-05-05.
-
- May 05, 2005
- May 03, 2005
- May 02, 2005
-
-
rtoy authored
be T, NIL, or :MAYBE.
-