/[cmucl]/src/pcl/defs.lisp
ViewVC logotype

Diff of /src/pcl/defs.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31 by pmai, Fri Jan 3 18:50:23 2003 UTC revision 1.32 by gerd, Sat Feb 1 20:42:28 2003 UTC
# Line 289  Line 289 
289    
290  (defun make-class-predicate-name (name)  (defun make-class-predicate-name (name)
291    (intern (format nil "~A::~A class predicate"    (intern (format nil "~A::~A class predicate"
292                    (package-name (symbol-package name))                    (let ((pkg (symbol-package name)))
293                        (if pkg (package-name pkg) ""))
294                    name)                    name)
295            *the-pcl-package*))            *the-pcl-package*))
296    

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

  ViewVC Help
Powered by ViewVC 1.1.5