1468 |
when (null list2) do (return-from is-noncontiguous-sublist-of nil) |
when (null list2) do (return-from is-noncontiguous-sublist-of nil) |
1469 |
when (eql x (pop list2)) do (return)) |
when (eql x (pop list2)) do (return)) |
1470 |
finally (return t))) |
finally (return t))) |
1471 |
|
|
1472 |
|
;;; This defines a new metaclass to allow us to get around |
1473 |
|
;;; the restriction in section 11.1.2.1.2, bullet 19 in some |
1474 |
|
;;; object system tests |
1475 |
|
|
1476 |
|
;;; (when (typep (find-class 'standard-class) 'standard-class) |
1477 |
|
;;; (defclass substandard-class (standard-class) ()) |
1478 |
|
;;; (defparameter *can-define-metaclasses* t)) |