From eca110a0e104397762a99aacd75bee59ea5a7ec9 Mon Sep 17 00:00:00 2001 From: emarsden <emarsden> Date: Wed, 21 May 2003 16:34:34 +0000 Subject: [PATCH] Change the names of lambda-nodes in IR1 for PCL-generated lambdas to something of the form (pcl::method name specializers...), instead of (:method name specializers). --- compiler/ir1tran.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index 633fc809f..e72d3ea54 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)) -- GitLab