Changeset 13011

Timestamp:

Oct 13, 2009, 2:41:49 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

If WATCH is passed an array, hash-table, or standard-instance, watch
the underlying data-vector, hash-table-vector, or slot-vector,
respectively.

New function PRIMITIVE-WATCH.

File:

• trunk/source/lib/misc.lisp (modified) (1 diff)

trunk/source/lib/misc.lisp

@@ -1057 +1057 @@
       (%map-areas #'(lambda (x) (push x result)) area-watched area-watched))
     result))
-    
+
+(defun primitive-watch (thing)
+  (require-type thing '(or cons (satisfies uvectorp)))
+  (%watch thing))
+
 (defun watch (&optional thing)
-  (if thing
-    (progn
-      (require-type thing '(or cons (satisfies uvectorp)))
-      (%watch thing))
-    (all-watched-objects)))
+  (cond ((null thing)
+         (all-watched-objects))
+        ((arrayp thing)
+         (primitive-watch (array-data-and-offset thing)))
+        ((hash-table-p thing)
+         (primitive-watch (nhash.vector thing)))
+        ((standard-instance-p thing)
+         (primitive-watch (instance-slots thing)))
+        (t
+         (primitive-watch thing))))
 
 (defun unwatch (thing)