Changeset 12796

Timestamp:

Sep 8, 2009, 6:16:49 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

PPC stubs for %WATCH and %UNWATCH for the time being.

File:

• trunk/source/level-0/PPC/ppc-utils.lisp (modified) (1 diff)

trunk/source/level-0/PPC/ppc-utils.lisp

@@ -596 +596 @@
   (ba .SPmakeu32))
 
+(defun %watch (uvector)
+  (declare (ignore uvector))
+  (error "watching objects not supported on PPC yet"))
+
+(defun %unwatch (watched)
+  (declare (ignore watched))
+  (error "watching objects not supported on PPC yet"))
+
 ;;; Make a list.  This can be faster than doing so by doing CONS
 ;;; repeatedly, since the latter strategy might triger the GC several