bugfix
Sat Jul 22 05:58:56 PDT 2006 grue@mail.ru
* bugfix
diff -rN -u old-lifp/console.lisp new-lifp/console.lisp
--- old-lifp/console.lisp 2014-04-18 19:21:15.000000000 -0700
+++ new-lifp/console.lisp 2014-04-18 19:21:15.000000000 -0700
@@ -153,7 +153,7 @@
(defun run-console (startup lib-loader &key (interactive nil))
(if *repl-mode* (progn (funcall startup)
(return-from run-console t))
- (with-ltk ()
+ (with-ltk (:debug :develop)
(let* ((txt (make-instance 'text))
(menu (make-menubar))
(m-file (make-menu menu "File"))
diff -rN -u old-lifp/verbs.lisp new-lifp/verbs.lisp
--- old-lifp/verbs.lisp 2014-04-18 19:21:15.000000000 -0700
+++ new-lifp/verbs.lisp 2014-04-18 19:21:15.000000000 -0700
@@ -18,7 +18,7 @@
:wear :strip :enter :climb :drink :eat
:rub :turn :switch-on :switch-off
:fill :empty :extract :let-go :open :close
- :lock :unlock :open-unlock)
+ :lock :unlock :unlock-open)
(:shadow :listen :fill :open :close)
(:shadowing-import-from :if-lib :room))
@@ -501,12 +501,12 @@
(format nil "You cannot unlock ~a with ~a."
(the-name obj) (the-name key))))))
-(defaction open-unlock (obj key)
+(defaction unlock-open (obj key)
"You cannot open this.")
-(defmethod open-unlock ((obj container) (key item))
+(defmethod unlock-open ((obj container) (key item))
(unless (and (has obj :container)
(has obj :openable))
- (return-from open-unlock (call-next-method)))
+ (return-from unlock-open (call-next-method)))
(and (run-action 'unlock *args*)
(run-action 'open obj)))