From 333c5ef7d746138c2b2d18d2ca6bf9dec2f3326f Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 19 Aug 1993 21:03:39 +0000 Subject: [PATCH] :where -> :when --- compiler/typetran.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/typetran.lisp b/compiler/typetran.lisp index d31443686..45e434e5e 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) -- GitLab