mirror of
https://gitlab.com/vindarel/ciel.git
synced 2025-12-15 14:51:16 -08:00
REPL: disable reset
This commit is contained in:
parent
8f7af9eb6e
commit
2d1d45dee1
2 changed files with 7 additions and 7 deletions
13
repl.lisp
13
repl.lisp
|
|
@ -77,11 +77,12 @@ based on SBCLI")
|
|||
(format t "~%Bye!~&")
|
||||
(uiop:quit))
|
||||
|
||||
(defun reset ()
|
||||
"Resets the session environment"
|
||||
(delete-package 'sbcli)
|
||||
(defpackage :sbcli (:use :common-lisp :ciel))
|
||||
(in-package :sbcli))
|
||||
;; (defun reset ()
|
||||
;; "Resets the session environment"
|
||||
;; (delete-package 'sbcli)
|
||||
;; (defpackage :sbcli (:use :common-lisp :ciel))
|
||||
;; ;XXX: ?
|
||||
;; (in-package :sbcli))
|
||||
|
||||
(defun novelty-check (str1 str2)
|
||||
(string/= (string-trim " " str1)
|
||||
|
|
@ -184,7 +185,7 @@ based on SBCLI")
|
|||
("d" . (1 . ,#'dump-disasm))
|
||||
("t" . (-1 . ,#'dump-type))
|
||||
("q" . (0 . ,#'end))
|
||||
("z" . (0 . ,#'reset)))
|
||||
;; ("z" . (0 . ,#'reset)))
|
||||
:test 'equal))
|
||||
|
||||
(defun call-special (fundef call args)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue