Skip to content
Snippets Groups Projects
test-preferences-1.script 442 B
Newer Older
;;; -*- Lisp -*-
(load "script-support")
(load "../asdf")
(exit-on-error
 (setf asdf:*central-registry* '(*default-pathname-defaults*))
 (in-package :asdf)
 (setf asdf::*load-preference-files* t)
 (asdf:oos 'asdf:load-op 'test-preferences-system-1)
 (assert (eq common-lisp-user::*test-preferences-variable-1* :load))
 (asdf:oos 'asdf:test-op 'test-preferences-system-1)
 (assert (eq common-lisp-user::*test-preferences-variable-1* :test))
 )