Minor

Shirakumo · Jan 31, 2025 · 4ee78cc · 4ee78cc
1 parent 9f42a58
commit 4ee78cc
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/c-object.lisp b/c-object.lisp
@@ -43,7 +43,7 @@
 (defun pointer->object (pointer &optional errorp)
   (let ((address (etypecase pointer
                    (cffi:foreign-pointer (cffi:pointer-address pointer))
-                   (integer pointer))))
+                   ((unsigned-byte 64) pointer))))
     (or (gethash address *c-object-table*)
         (when errorp
           (error "No object associated with address ~x" address)))))

diff --git a/segments/virtual.lisp b/segments/virtual.lisp
@@ -71,6 +71,7 @@
     (start segment)))
 
 (define-std-callback virtual-mix ((segment :pointer))
+  (declare (optimize speed))
   (with-fetched-object (segment)
     (mix segment)))