Changeset 37

Timestamp:

May 22, 2016, 5:30:52 PM (4 years ago)

Author:

gz

Message:

Restore changeset:8

File:

• branches/lispworks/load-wood.lisp (modified) (1 diff)

branches/lispworks/load-wood.lisp

@@ -191 +191 @@
               (not (probe-file fasl))
               (> (file-write-date lisp) (file-write-date fasl)))
+      #+LispWorks
       (compiler:with-optimization-level
         (if *debug-wood*
           (compiler::set-optimization-level :safety 3 :debug 3)
           (compiler::set-optimization-level :speed 3 :safety 0 :debug 0 :float 0))
-        (compile-file lisp :verbose t)))))
+        (compile-file lisp :verbose t))
+      #-LispWorks
+      (compile-file lisp :verbose t))))
 
 (defun compile-and-load (file &optional force-compile)