X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdisassem.lisp;h=7bf98fbacfd9c66df9676b86107d0584e9862e4f;hb=f7faed97898dd0e94a18b0d1fca03aaa0fe24ab0;hp=bc0f42835be9ac994989eeee6d5187e9aff75eaa;hpb=8052fcbcea638b80a7e7dc32533d38304e1b52a0;p=sbcl.git

diff --git a/src/compiler/disassem.lisp b/src/compiler/disassem.lisp
index bc0f428..7bf98fb 100644
--- a/src/compiler/disassem.lisp
+++ b/src/compiler/disassem.lisp
@@ -1596,7 +1596,7 @@
   ;; offset of next position
   (next-offs 0 :type offset)
   ;; a sap pointing to our segment
-  (segment-sap (missing-arg) :type sb!sys:system-area-pointer)
+  (segment-sap nil :type (or null sb!sys:system-area-pointer))
   ;; the current segment
   (segment nil :type (or null segment))
   ;; what to align to in most cases