← Back to branch summary

~ubuntu-branches/ubuntu/raring/cl-asdf/raring-proposed

« back to all changes in this revision

Viewing changes to test/script-support.lisp

  • Committer: Package Import Robot
  • Author(s): Francois-Rene Rideau
  • Date: 2012-08-25 08:05:21 UTC
  • mfrom: (1.1.27)
  • Revision ID: package-import@ubuntu.com-20120825080521-zt7ezhntbjqoelu3
Tags: 2:2.24-1
* ACL: handle SMP vs non-SMP builds in Allegro 9.0
* MKCL: add support for ManKai Common Lisp
* ECL: merge improvements from ECL git. Refactor ECL support somewhat.
* Remove broken-fasl-support: first, cormanlisp is supposed to have fixed it;
  second, cormanlisp is dead;
  third, one can now (setf *load-system-operation* 'load-source-op) instead
  while using asdf:load-system.
* renaming ends-with to string-suffix-p to avoid conflict with alexandria.
* Refactor load-system to use *load-system-operation*,
  and change require-system and module-provide-asdf to use that.

Also note:
* We recommend you use asdf-utils to access the utilities in asdf.
  Some time next year, we may stop exporting the utilities from asdf itself.
* To avoid conflicts between alexandria, fare-utils, xcvb-driver,
  asdf-utils, etc., you can use xcvb-utils that solves the conflicts.
  Or you can use fare-utils:define-package-mix that will help you
  automatically resolve them.

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/script-support.lisp
34
34
                    #+ecl :ecl
35
35
                    #+gcl :gcl
36
36
                    #+lispworks :lispworks
 
37
                    #+mkcl :mkcl
37
38
                    #+sbcl :sbcl
38
39
                    #+scl :scl
39
40
                    #+xcl :xcl))))
76
77
  (lispworks:quit :status return :confirm nil :return nil :ignore-errors-p t)
77
78
  #+(or openmcl mcl)
78
79
  (ccl::quit return)
 
80
  #+mkcl
 
81
  (mk-ext:quit :exit-code return)
79
82
  #+sbcl #.(let ((exit (find-symbol "EXIT" :sb-ext))
80
83
                 (quit (find-symbol "QUIT" :sb-ext)))
81
84
             (cond
149
152
(defun register-directory (dir)
150
153
  (pushnew dir (symbol-value (find-symbol (string :*central-registry*) :asdf))))
151
154
 
152
 
(defun asdf-load (x)
 
155
(defun asdf-load (x &key verbose)
153
156
  (let ((xoos (find-symbol (string :oos) :asdf))
154
 
        (xload-op (find-symbol (string :load-op) :asdf)))
155
 
    (funcall xoos xload-op x :verbose t)))
 
157
        (xload-op (find-symbol (string :load-op) :asdf))
 
158
        (*load-print* verbose)
 
159
        (*load-verbose* verbose))
 
160
    (funcall xoos xload-op x :verbose verbose)))
156
161
 
157
 
(defun load-asdf-system ()
 
162
(defun load-asdf-system (&rest keys)
158
163
  (quietly
159
164
   (register-directory *asdf-directory*)
160
 
   (asdf-load :asdf)))
 
165
   (apply 'asdf-load :asdf keys)))
161
166
 
162
167
(defun testing-asdf (thunk)
163
168
  (quit-on-error