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

Diff of /slime/swank-lispworks.lisp

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

revision 1.34 by heller, Wed Mar 10 09:10:33 2004 UTC revision 1.35 by heller, Thu Mar 18 21:53:27 2004 UTC
# Line 342  Return NIL if the symbol is unbound." Line 342  Return NIL if the symbol is unbound."
342           (tmpname (hcl:make-temp-file nil "lisp")))           (tmpname (hcl:make-temp-file nil "lisp")))
343      (with-compilation-unit ()      (with-compilation-unit ()
344        (compile-from-temp-file        (compile-from-temp-file
345         (with-standard-io-syntax         (format nil "~S~%~A" `(eval-when (:compile-toplevel)
346           (format nil "~S~%~A" `(eval-when (:compile-toplevel)                                (setq dspec::*location* (list ,@location)))
347                                  (setq dspec::*location* (list ,@location)))                 string)
                  string))  
348         tmpname)         tmpname)
349        (signal-error-data-base compiler::*error-database* location)        (signal-error-data-base compiler::*error-database* location)
350        (signal-undefined-functions compiler::*unknown-functions* location))))        (signal-undefined-functions compiler::*unknown-functions* location))))

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

  ViewVC Help
Powered by ViewVC 1.1.5