From 522afc85e8d243510e9af74e865051c952e7092a Mon Sep 17 00:00:00 2001 From: Brian Cully Date: Fri, 3 Oct 2008 00:43:29 -0400 Subject: Remove FASL files. --- Lisp/moxie/compat/compat-sbcl.fasl | Bin 16205 -> 0 bytes Lisp/moxie/default.fasl | Bin 13599 -> 0 bytes Lisp/moxie/events.fasl | Bin 26963 -> 0 bytes Lisp/moxie/moxie.fasl | Bin 41390 -> 0 bytes Lisp/moxie/package.fasl | Bin 3386 -> 0 bytes Lisp/moxie/repl.lisp.old | 87 ------------------------------------- Lisp/moxie/utils/bjc-utils.fasl | Bin 41488 -> 0 bytes Lisp/moxie/world.fasl | Bin 42872 -> 0 bytes 8 files changed, 87 deletions(-) delete mode 100644 Lisp/moxie/compat/compat-sbcl.fasl delete mode 100644 Lisp/moxie/default.fasl delete mode 100644 Lisp/moxie/events.fasl delete mode 100644 Lisp/moxie/moxie.fasl delete mode 100644 Lisp/moxie/package.fasl delete mode 100644 Lisp/moxie/repl.lisp.old delete mode 100644 Lisp/moxie/utils/bjc-utils.fasl delete mode 100644 Lisp/moxie/world.fasl diff --git a/Lisp/moxie/compat/compat-sbcl.fasl b/Lisp/moxie/compat/compat-sbcl.fasl deleted file mode 100644 index d1e2b41..0000000 Binary files a/Lisp/moxie/compat/compat-sbcl.fasl and /dev/null differ diff --git a/Lisp/moxie/default.fasl b/Lisp/moxie/default.fasl deleted file mode 100644 index 3f88e09..0000000 Binary files a/Lisp/moxie/default.fasl and /dev/null differ diff --git a/Lisp/moxie/events.fasl b/Lisp/moxie/events.fasl deleted file mode 100644 index 385f796..0000000 Binary files a/Lisp/moxie/events.fasl and /dev/null differ diff --git a/Lisp/moxie/moxie.fasl b/Lisp/moxie/moxie.fasl deleted file mode 100644 index 70ee196..0000000 Binary files a/Lisp/moxie/moxie.fasl and /dev/null differ diff --git a/Lisp/moxie/package.fasl b/Lisp/moxie/package.fasl deleted file mode 100644 index 0eaf469..0000000 Binary files a/Lisp/moxie/package.fasl and /dev/null differ diff --git a/Lisp/moxie/repl.lisp.old b/Lisp/moxie/repl.lisp.old deleted file mode 100644 index 8ae7408..0000000 --- a/Lisp/moxie/repl.lisp.old +++ /dev/null @@ -1,87 +0,0 @@ -(in-package :moxie) - -(defvar *repl-motd* - "Welcome to Moxie! - -To get help, enter :HELP at the prompt.") - -(defvar *repl-help* - "Top level commands: - :R [num] Invoke restart NUM, or list restarts. - :HELP :H :? Display this message.") - -(defvar *repl-level* 0) - -(defun start-repl (&optional (use-result-stream t)) - (let ((*moxie-result-stream* (or (and use-result-stream (make-result-stream)) - *error-output*))) - (format t "~%~A~%" *repl-motd*) - (send-command :repl-result `(:prompt ,(repl-prompt))))) - -(defmethod moxie-event-handler ((event (eql :eval)) &rest args) - (let* ((*debugger-hook* #'repl-dbg) - (*repl-level* (1+ *repl-level*)) - (lex-level *repl-level*)) - (dolist (form args) - (force-output) - (restart-case (eval form) - (abort () - :report (lambda (stream) - ;; I know this looks weird, but because the formatter is called - ;; from the condition handler's environment, and because - ;; *repl-level* is special, at the time of evaluation, - ;; *repl-level* may be higher than lex-level. - (if (eql lex-level *repl-level*) - (format stream "Abort handling of current request.") - (format stream "Return to REPL level ~A." lex-level))) - (send-command :repl-result `(:prompt ,(repl-prompt)))))))) - -(defun repl-dbg (condition debugger-hook) - "This debugger hook just sends a message to Moxie when the debugger has -been entered, so Moxie can keep track of the prompt." - (declare (ignore debugger-hook)) - (send-command :repl-dbg `(:condition ,condition))) - -(defmacro eval-hook (&rest forms) - "Ensure all FORMS are valid for evaluation before calling EVAL-HOOK-HELPER." - (let ((helped-forms (mapcar (lambda (x) `(quote ,x)) forms))) - `(eval-hook-helper ,@helped-forms))) - -(defun eval-hook-helper (&rest forms) - "Evaluate all FORMS, sending the results to the Moxie output stream. When finished -processing, send the prompt." - (do* ((f forms (cdr f)) - (form (car f) (car f))) - ((null f)) - (case form - (:r (let ((restarts (compute-restarts)) - (num (cadr f))) - (if (and (integerp num) - (> num 0) (<= num (length restarts))) - (progn - (setf f (cdr f)) - (invoke-restart (elt restarts (1- num)))) - (print-restarts restarts)))) - ((:? :h :help) (format t "~A~%" *repl-help*)) - (t (let (values) - (setq - form) - (setq values (multiple-value-list (eval -))) - (setq /// // // / / values *** ** ** * * (car /)) - (send-command :repl-result `(:values ,@values)))))) - (send-command :repl-result `(:prompt ,(repl-prompt)))) - -(defun print-restarts (restarts) - (format t "Available restarts: ~%") - (do ((c restarts (cdr c)) - (i 1 (1+ i))) - ((null c)) - (format t " ~A ~A~%" i (car c))) - (format t "Invoke restarts with :R [num]~%")) - -(defun repl-prompt () - "Compute the prompt for Moxie's REPL." - (format nil "~A~@[[~A]~]> " - (if (eql *package* (find-package :cl-user)) - "CL-USER" - (package-name *package*)) - (when (> *repl-level* 1) *repl-level*))) \ No newline at end of file diff --git a/Lisp/moxie/utils/bjc-utils.fasl b/Lisp/moxie/utils/bjc-utils.fasl deleted file mode 100644 index 9d6cb67..0000000 Binary files a/Lisp/moxie/utils/bjc-utils.fasl and /dev/null differ diff --git a/Lisp/moxie/world.fasl b/Lisp/moxie/world.fasl deleted file mode 100644 index a903e04..0000000 Binary files a/Lisp/moxie/world.fasl and /dev/null differ -- cgit v1.2.3