Simplify (and robustify) regular PACKing

[sbcl.git] / src / code / sunos-os.lisp

diff --git a/src/code/sunos-os.lisp b/src/code/sunos-os.lisp
index 2a419a6..ae4b233 100644 (file)
--- a/src/code/sunos-os.lisp
+++ b/src/code/sunos-os.lisp
@@ -48,4 +48,8 @@
   ;; disposable.
   ;; FIXME II: this could well be wrong
   #!+sparc 8192
-  #!+x86 4096)
+  #!+(or x86 x86-64) 4096)
+
+;;; support for CL:MACHINE-VERSION defined OAOO elsewhere
+(defun get-machine-version ()
+  nil)