/[gcl]/gcl/cmpnew/gcl_cmpfun.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpfun.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26