:read-property :rp :read-property- \r
:exec :exec*\r
:abstractobject :name :names :parent :children :flags\r
- :initflags :add-flags :has :hasnt :-> :give\r
+ :initflags :add-flags :has :hasnt :-> :give :child\r
:ifclass :object :defaction :*meta*\r
:move :rmv :ofclass :among\r
:verb :extend-verb :extend-verb-first\r
(not (intersection flags (flags obj))))\r
;(not (subsetp flags (flags obj))))\r
\r
+(defun child (obj)\r
+ "Returns the first child of the object"\r
+ (car (children obj)))\r
+\r
(defmethod parser ((obj abstractobject) words) \r
"Default parser. Really bad one."\r
(when (zerop (length words)) (return-from parser 0))\r