/[gcl]/gcl/pcl/gcl_pcl_dfun.lisp
ViewVC logotype

Diff of /gcl/pcl/gcl_pcl_dfun.lisp

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

revision 1.2 by camm, Sat May 7 02:52:30 2005 UTC revision 1.3 by camm, Sat Jul 23 08:55:55 2005 UTC
# Line 1518  And so, we are saved. Line 1518  And so, we are saved.
1518    
1519  (defun update-dfun (generic-function &optional dfun cache info)  (defun update-dfun (generic-function &optional dfun cache info)
1520    (let* ((early-p (early-gf-p generic-function))    (let* ((early-p (early-gf-p generic-function))
1521           (gf-name (if early-p           #+cmu(gf-name (if early-p
1522                        (early-gf-name generic-function)                        (early-gf-name generic-function)
1523                        (generic-function-name generic-function)))                        (generic-function-name generic-function)))
1524           (ocache (gf-dfun-cache generic-function)))           (ocache (gf-dfun-cache generic-function)))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26