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 |
. |
. |
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) |
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 |
|
|