/[gcl]/gcl/ansi-tests/class-precedence-lists.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/class-precedence-lists.lsp

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

revision 1.3 by pfdietz, Fri Jun 6 11:33:12 2003 UTC revision 1.4 by pfdietz, Fri Jun 6 12:29:49 2003 UTC
# Line 5  Line 5 
5    
6  (in-package :cl-test)  (in-package :cl-test)
7    
8  (unless (fboundp 'class-precedence-list)  (unless #| (fboundp 'class-precedence-list) |# nil
9    (defgeneric class-precedence-list (x)    (defgeneric class-precedence-list (x)
10      (:method-combination list)      (:method-combination list)
11      .      .
# Line 104  Line 104 
104  (def-cpl-test 1.0l0 (float real number t) float-cpl.4)  (def-cpl-test 1.0l0 (float real number t) float-cpl.4)
105    
106  (def-cpl-test #'car (function t))  (def-cpl-test #'car (function t))
107  (def-cpl-test #'make-instance (generic-function function t))  ;; (def-cpl-test #'make-instance (generic-function function t))
108    
109  (def-cpl-test (make-hash-table) (hash-table t) hash-table-cpl.1)  (def-cpl-test (make-hash-table) (hash-table t) hash-table-cpl.1)
110  (def-cpl-test (make-hash-table :test 'eq) (hash-table t) hash-table-cpl.2)  (def-cpl-test (make-hash-table :test 'eq) (hash-table t) hash-table-cpl.2)
# Line 120  Line 120 
120  ;;; Insert a test for LOGICAL-PATHNAME here  ;;; Insert a test for LOGICAL-PATHNAME here
121  ;;; (def-cpl-test ????? (logical-pathname pathname t))  ;;; (def-cpl-test ????? (logical-pathname pathname t))
122    
123  (def-cpl-test (find-method #'class-name nil (list (find-class t))) (method t))  ;;; (def-cpl-test (find-method #'class-name nil (list (find-class 'class)))
124    ;;;  (method t))
125    
126  ;;; Insert test for METHOD-COMBINATION here  ;;; Insert test for METHOD-COMBINATION here
127    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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