Parent Directory | Revision Log | Patch
revision 1.5 by camm, Tue Dec 14 03:34:06 2004 UTC | revision 1.6 by camm, Mon Dec 27 22:09:48 2004 UTC | |
---|---|---|
# | Line 441 | Line 441 |
441 | (si:putprop 'length 'c1length 'c1) | (si:putprop 'length 'c1length 'c1) |
442 | ||
443 | (defun c1length (args &aux (info (make-info))) | (defun c1length (args &aux (info (make-info))) |
444 | (setf (info-type info) 'fixnum) | (setf (info-type info) '(integer 0 #.(ash most-positive-fixnum -2))) |
445 | (cond ((and (consp (car args)) | (cond ((and (consp (car args)) |
446 | (eq (caar args) 'symbol-name) | (eq (caar args) 'symbol-name) |
447 | (let ((args1 (cdr (car args)))) | (let ((args1 (cdr (car args)))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |