33 |
|
|
34 |
|
|
35 |
|
|
36 |
(in-package 'system) |
;(in-package 'system) |
37 |
|
|
38 |
|
|
39 |
|
|
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 |
|
|