tracks-demo: Don't redefine do-pages if it exists.

m-creations · Sep 27, 2024 · 503c874 · 503c874
1 parent 0c7c0d0
commit 503c874
Showing 1 changed file with 7 additions and 6 deletions.
diff --git a/tracks-demo.lisp b/tracks-demo.lisp
@@ -71,12 +71,13 @@
 (defun page-bits-to-kind (bits)
   (cdr (assoc (logand bits 7) +page-bits-to-kind+)))
 
-(defmacro do-pages ((i page) &body body)
-  (let ((total-pages (gensym "TOTAL-PAGES")))
-    `(let ((,total-pages sb-vm:next-free-page))
-       (dotimes (,i ,total-pages)
-         (let ((,page (deref page-table ,i)))
-           ,@body)))))
+(unless (fboundp 'do-pages)
+  (defmacro do-pages ((i page) &body body)
+    (let ((total-pages (gensym "TOTAL-PAGES")))
+      `(let ((,total-pages sb-vm:next-free-page))
+         (dotimes (,i ,total-pages)
+           (let ((,page (deref page-table ,i)))
+             ,@body))))))
 
 (defparameter *dynamic-col-keys*
   #(((:boxed)       "Boxed")