test.lisp
Thu Jan 7 22:03:05 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* modular smoke & cl-smoke prefix.
--- old-repl/test.lisp 2014-10-30 08:03:36.000000000 +0100
+++ new-repl/test.lisp 2014-10-30 08:03:36.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)