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

Diff of /slime/swank-allegro.lisp

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

revision 1.153 by heller, Sun May 6 16:16:02 2012 UTC revision 1.154 by sboukarev, Sat Aug 4 23:48:19 2012 UTC
# Line 341  Line 341 
341    `(satisfies redefinition-p))    `(satisfies redefinition-p))
342    
343  (defun signal-compiler-condition (&rest args)  (defun signal-compiler-condition (&rest args)
344    (signal (apply #'make-condition 'compiler-condition args)))    (apply #'signal 'compiler-condition args))
345    
346  (defun handle-compiler-warning (condition)  (defun handle-compiler-warning (condition)
347    (declare (optimize (debug 3) (speed 0) (space 0)))    (declare (optimize (debug 3) (speed 0) (space 0)))

Legend:
Removed from v.1.153  
changed lines
  Added in v.1.154

  ViewVC Help
Powered by ViewVC 1.1.5