Thu Jan 7 22:03:05 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* modular smoke & cl-smoke prefix.
diff -rN -u old-repl/cl-smoke.repl.asd new-repl/cl-smoke.repl.asd
--- old-repl/cl-smoke.repl.asd 1970-01-01 01:00:00.000000000 +0100
+++ new-repl/cl-smoke.repl.asd 2014-10-30 07:04:30.000000000 +0100
@@ -0,0 +1,20 @@
+(asdf:defsystem :cl-smoke.repl
+ :name :cl-smoke.repl
+ :version (0 0 1)
+ :author "Tobias Rautenkranz"
+ :license "GPL with linking exception"
+ :description "REPL support for cl-smoke."
+ :depends-on (:cl-smoke.qt.gui)
+ :components
+ ((:module "src"
+ :components
+ ((:file "package") (:file "repl" :depends-on ("package"))
+ (:file "locate-widget" :depends-on ("package"))
+ (:file "get-widget" :depends-on ("package"))))))
+
+(defmethod operation-done-p ((o test-op) (c (eql (find-system :cl-smoke.repl))))
+ nil)
+
+(defmethod perform ((o test-op) (c (eql (find-system :cl-smoke.repl))))
+ (operate 'asdf:load-op :cl-smoke.repl-tests)
+ (operate 'asdf:test-op :cl-smoke.repl-tests))
diff -rN -u old-repl/repl.mbd new-repl/repl.mbd
--- old-repl/repl.mbd 2014-10-30 07:04:30.000000000 +0100
+++ new-repl/repl.mbd 1970-01-01 01:00:00.000000000 +0100
@@ -1,17 +0,0 @@
-;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
-
-(in-package :sysdef-user)
-
-(define-system :cl-smoke.repl ()
- (:version 0 0 1)
- (:documentation "REPL support for cl-smoke.")
- (:author "Tobias Rautenkranz")
- (:license "GPL with linking exception")
- (:components
- ("src" module
- (:components
- "package"
- ("repl" (:needs "package"))
- ("locate-widget" (:needs "package"))
- ("get-widget" (:needs "package")))))
- (:needs :qt))
diff -rN -u old-repl/test.lisp new-repl/test.lisp
--- old-repl/test.lisp 2014-10-30 07:04:30.000000000 +0100
+++ new-repl/test.lisp 2014-10-30 07:04:30.000000000 +0100
@@ -4,19 +4,7 @@
;;; Thus the pipe
;;;
-(in-package :sysdef-user)
-
-(defun load-sysdef (pathname system)
- (load pathname)
- (setf (mb.sysdef::pathname-of (find-system system)) pathname))
-
-(defun load-sysdef-file (system-name)
- "Loads a mbd file in the current directory."
- (load-sysdef (first (directory "*.mbd"))
- system-name))
-
-(load-sysdef-file :cl-smoke.repl)
-(mb:load :cl-smoke.repl)
+(require :cl-smoke.repl)
(in-package :cl-smoke.repl)