/[gcl]/gcl/ansi-tests/ansi-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/ansi-aux.lsp

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

revision 1.65 by pfdietz, Tue Jun 10 00:05:35 2003 UTC revision 1.66 by pfdietz, Fri Jun 13 12:01:28 2003 UTC
# Line 1468  the condition to go uncaught if it canno Line 1468  the condition to go uncaught if it canno
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))

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

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