/[gcl]/gcl/lsp/defstruct.lsp
ViewVC logotype

Diff of /gcl/lsp/defstruct.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:06 1999 UTC revision 1.2 by camm, Sat Oct 5 18:34:15 2002 UTC
# Line 33  Line 33 
33    
34    
35    
36  (in-package 'system)  ;(in-package 'system)
37    
38    
39    
# Line 300  Line 300 
300                            (eq (car x) ',name)))                            (eq (car x) ',name)))
301               `(defun ,predicate (x)               `(defun ,predicate (x)
302                       (do ((i ,name-offset (1- i))                       (do ((i ,name-offset (1- i))
303                            (y x (cdr y)))                            (z x (cdr z)))
304                           ((= i 0) (and (consp y) (eq (car y) ',name)))                           ((= i 0) (and (consp z) (eq (car z) ',name)))
305                           (declare (fixnum i))                           (declare (fixnum i))
306                         (unless (consp y) (return nil))))))                         (unless (consp z) (return nil))))))
307          ((error "~S is an illegal structure type."))))          ((error "~S is an illegal structure type."))))
308    
309    

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

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