diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index 633fc809f4ded2f7b73a5378859a42ce290ea015..e72d3ea5431724d7e014f7de7975190bfae777fa 100644 --- a/compiler/ir1tran.lisp +++ b/compiler/ir1tran.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.153 2003/05/14 12:03:15 emarsden Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.154 2003/05/21 16:34:34 emarsden Exp $") ;;; ;;; ********************************************************************** ;;; @@ -2048,7 +2048,7 @@ (let ((decl (find 'pcl::method-name decls :key 'caadr))) (and decl (eq 'declare (first decl)) - (cons :method (cadadr decl)))))) + (cons 'pcl::method (cadadr decl)))))) res)))) (declaim (end-block))