/[slime]/slime/swank-abcl.lisp
ViewVC logotype

Diff of /slime/swank-abcl.lisp

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

revision 1.65 by heller, Sun Jun 21 07:22:56 2009 UTC revision 1.66 by mevenson, Tue Aug 18 09:51:12 2009 UTC
# Line 567  part of *sysdep-pathnames* in swank.load Line 567  part of *sysdep-pathnames* in swank.load
567    
568  (defimplementation quit-lisp ()  (defimplementation quit-lisp ()
569    (ext:exit))    (ext:exit))
   
 ;; WORKAROUND: call/initialize accessors at load time  
 (let ((c (make-condition 'compiler-condition  
                           :original-condition nil  
                           :severity ':note :message "" :location nil))  
        (slots `(severity message short-message references location)))  
    (dolist (slot slots)  
      (funcall slot c)))  

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

  ViewVC Help
Powered by ViewVC 1.1.5