From b0d82c31a0a425f6d3ef77ec2f0dca63fcb8de09 Mon Sep 17 00:00:00 2001 From: vindarel Date: Tue, 20 Oct 2020 15:48:22 +0200 Subject: [PATCH] fix disable reset sorry --- repl.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/repl.lisp b/repl.lisp index c263a89..5ef85e2 100755 --- a/repl.lisp +++ b/repl.lisp @@ -174,7 +174,7 @@ ;; -1 means take the string as one arg (defvar *special* (alexandria:alist-hash-table - `(;; ("help" . (0 . ,#'general-help)) + `( ;; ("help" . (0 . ,#'general-help)) ("help" . (0 . ,#'help)) ("doc" . (1 . ,#'symbol-documentation)) ("?" . (1 . ,#'what)) @@ -184,7 +184,8 @@ ("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)