/[cmucl]/src/code/hash.lisp
ViewVC logotype

Diff of /src/code/hash.lisp

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

revision 1.16 by wlott, Fri May 15 17:53:48 1992 UTC revision 1.17 by wlott, Sat May 16 16:12:44 1992 UTC
# Line 409  Line 409 
409                         (setf bucket (svref vector index))                         (setf bucket (svref vector index))
410                         (,function)))))                         (,function)))))
411                  #',function))))                  #',function))))
412         (macrolet ((,function () (funcall ,n-function)))         (macrolet ((,function () '(funcall ,n-function)))
413           ,@body))))           ,@body))))
414    
415    

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

  ViewVC Help
Powered by ViewVC 1.1.5