Skip to content
Snippets Groups Projects
test6.script 483 B
Newer Older
;;; -*- Lisp -*-

;; no preference loading by default
(load "script-support")
(load "../asdf")
(in-package #:common-lisp-user)

(defvar *test6* nil)

(exit-on-error
 (setf asdf:*central-registry* '(*default-pathname-defaults*))
 (defmethod asdf:preference-file-for-system/operation
           ((system (eql (asdf:find-system 'test1))) operation)
  (merge-pathnames (make-pathname :name "test1" :type "preferences")))
 (asdf:operate 'asdf:load-op 'test1)
 (assert (null *test6*)))