Newer
Older
Gary King
committed
;;; -*- Lisp -*-
(load "script-support")
(load "../asdf")
Gary King
committed
(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))
)