Newer
Older
Gary King
committed
;;; -*- Lisp -*-
(in-package #:common-lisp)
(defpackage #:test-preferences-1-asdf-system
Gary King
committed
(:use #:common-lisp #:asdf))
(in-package #:asdf)
(defsystem test-preferences-system-1
:components
((:file "test-preferences-1"))
:in-order-to ((test-op (load-op test-preferences-system-1))))
Gary King
committed
((o test-op)
(c (eql (find-system 'test-preferences-system-1))))
(values nil))
(defmethod load-preferences
((system (eql (find-system 'test-preferences-system-1)))
Gary King
committed
(operation test-op))
;; the default load-preferences does nothing for anything other than a
Gary King
committed
;; basic-load-op. So, ... we hack it
(load (make-pathname
:name "test-preferences-system-test"
:type "lisp"
:defaults *default-pathname-defaults*)))
(defmethod preference-file-for-system/operation
((system (eql (find-system 'test-preferences-system-1)))