0.8.16.6:

[sbcl.git] / src / code / mips-vm.lisp

diff --git a/src/code/mips-vm.lisp b/src/code/mips-vm.lisp
index 558d293..264e871 100644 (file)
--- a/src/code/mips-vm.lisp
+++ b/src/code/mips-vm.lisp
@@ -8,11 +8,10 @@
   "Returns a string describing the type of the local machine."
   "MIPS")
 
-(defun machine-version ()
-  "Returns a string describing the version of the local machine."
+;;; support for CL:MACHINE-VERSION defined OAOO elsewhere
+(defun get-machine-version ()
   #!+little-endian "little-endian"
   #!-little-endian "big-endian")
-
 \f
 ;;;; FIXUP-CODE-OBJECT