Thu Jan 7 22:03:05 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>

* modular smoke & cl-smoke prefix.

Wed Jul 8 16:59:00 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Set package when starting event loop in background.

Wed Jul 1 13:05:25 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Use new qt:with-app.

--- old-repl/cl-smoke.repl.asd 1970-01-01 01:00:00.000000000 +0100

+++ new-repl/cl-smoke.repl.asd 2014-10-21 18:57:18.000000000 +0200

@@ -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))

--- old-repl/repl.mbd 2014-10-21 18:57:18.000000000 +0200

+++ 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))

--- old-repl/src/repl.lisp 2014-10-21 18:57:18.000000000 +0200

+++ new-repl/src/repl.lisp 2014-10-21 18:57:18.000000000 +0200

@@ -13,7 +13,7 @@

:reader eval-signal

:documentation "Send an form to evaluate.")

(result :accessor result)

- (package :accessor new-package))

+ (package :accessor new-package :initarg :package))

(:metaclass cxx:class))

(defmethod initialize-instance :after ((qt-eval qt-eval) &key &allow-other-keys)

@@ -74,11 +74,11 @@

*error-output* error-output

*query-io* query-io

*terminal-io* terminal-io)

- (qt:with-app

- (qt:application.set-quit-on-last-window-closed nil)

- (setf *qt-eval* (make-instance 'qt-eval))

+ (qt:with-app ()

+ (qt:application.set-quit-on-last-window-closed nil)

+ (setf *qt-eval* (make-instance 'qt-eval :package *package*))

(qt:do-delayed-initialize

- (bt:condition-notify ready))

+ (bt:condition-notify ready))

(qt:connect (qt:get-signal (qt:app)

"aboutToQuit()")

#'(lambda ()

@@ -96,13 +96,13 @@

While the idea is fine, it is a hack and the displaying of the argument list

in SLIME is fluky."

(funcall swank::*send-repl-results-function* '(nil))

- (qt:with-app

- (qt:application.set-quit-on-last-window-closed nil)

+ (qt:with-app ()

+ (qt:application.set-quit-on-last-window-closed nil)

(let ((idle (make-instance 'qt:timer)))

(qt:connect (qt:get-signal idle "timeout()")

- #'(lambda ()

- (swank::process-requests t) ;; it's a wonder this even works!

- (sb-impl::serve-event 0.1)))

+ #'(lambda ()

+ (swank::process-requests t) ;; it's a wonder this even works!

+ (sb-impl::serve-event 0.1)))

(cxx:start idle)

(qt:exec)

(format *debug-io* "New-repl end~%"))))

--- old-repl/test.lisp 2014-10-21 18:57:18.000000000 +0200

+++ new-repl/test.lisp 2014-10-21 18:57:18.000000000 +0200

@@ -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)