Skip to content
Find file Normal view History Permalink
test-around-compile.script 250 B
Newer Older
Francois-Rene Rideau's avatar
2.017.18: implement and document the :around-compile feature.
Francois-Rene Rideau committed
1 2 3 4 5 
;;; -*- Lisp -*-
(load "script-support.lisp")
(load-asdf)

(quit-on-error
Francois-Rene Rideau's avatar
2.20.9: fix logical-pathname issue; export more utilities.  
Francois-Rene Rideau committed
6 7 8 
  (setf *central-registry* '(*default-pathname-defaults*))
  (load-system 'test-around-compile :force t)
  (assert (= 3 (add10 1)))) ;; add10 must have been compiled in base 2