diff --git a/compiler/typetran.lisp b/compiler/typetran.lisp index d31443686804d3e2ddc9a904d5c555067f18b155..45e434e5e44d39d715dfb277f0781b9440d4081e 100644 --- a/compiler/typetran.lisp +++ b/compiler/typetran.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/typetran.lisp,v 1.23 1993/08/19 17:36:12 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/typetran.lisp,v 1.24 1993/08/19 21:03:39 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -121,7 +121,7 @@ ;;; load time. ;;; (deftransform find-class ((name) ((constant-argument symbol)) * - :where :both) + :when :both) (let* ((name (continuation-value name)) (cell (find-class-cell name))) `(or (class-cell-class ',cell)