diff --git a/pcl/defs.lisp b/pcl/defs.lisp index fa74bdb13eff79edc34ba5295e578b7da89d3527..2914fc0a3887f9b8bb4d43b95c9970c6bd4e034f 100644 --- a/pcl/defs.lisp +++ b/pcl/defs.lisp @@ -390,7 +390,6 @@ (subtypep type1 (if c2 (class-name c2) type2)))))) (defun do-satisfies-deftype (name predicate) -#| (let* ((specifier `(satisfies ,predicate)) (expand-fn #'(lambda (&rest ignore) (declare (ignore ignore)) @@ -406,12 +405,11 @@ (setf (get name 'excl::deftype-expander) expand-fn) #+:coral (setf (get name 'ccl::deftype-expander) expand-fn) -|# ;; This is the default for ports for which we don't know any ;; better. Note that for most ports, providing this definition ;; should just speed up class definition. It shouldn't have an ;; effect on performance of most user code. - (eval `(deftype ,name () '(satisfies ,predicate)))) + (eval `(deftype ,name () '(satisfies ,predicate)))))) (defun make-type-predicate-name (name)