\r
(defaction go-to (dir)\r
(let ((destination (read-property *location* (property dir))))\r
- (if destination (exec go-to-dispatch (destination))\r
+ (if destination (exec go-to-dispatch (destination) :str t)\r
(if (provides *location* 'cant-go) \r
(read-property *location* 'cant-go)\r
"You can't go here."))))\r
(go-to-room dest))\r
\r
(defmethod go-to-dispatch ((dest door))\r
+ ;(format t "go-to-dispatch: ~a~%" dest)\r
(unless (has dest :door) (return-from go-to-dispatch (call-next-method)))\r
(if (has dest :closed) (format nil "~a is closed." (the-name dest :capital t))\r
- (run-action 'pass *args*)))\r
+ (run-action 'pass (list dest))))\r
\r
(defaction pass (obj)\r
"Something's wrong happened.")\r