;;; -*- 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)) )