Parent Directory | Revision Log | Patch
revision 1.6 by camm, Mon Dec 27 22:09:48 2004 UTC | revision 1.7 by camm, Fri Jan 7 17:58:33 2005 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) '(integer 0 #.(ash most-positive-fixnum -2))) | (setf (info-type info) 'seqind) |
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 |