X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fmips-vm.lisp;h=264e87191018d96649e627ae63acbac7c52591a2;hb=10adbe19b88bf9d4fe65ad67f6de0fd065af87ff;hp=558d293f340b01cfc474ae803478872893fdd825;hpb=b062a0cffdc3e1706a67c487d2bc5e406c104893;p=sbcl.git

diff --git a/src/code/mips-vm.lisp b/src/code/mips-vm.lisp
index 558d293..264e871 100644
--- 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")
-
 
 ;;;; FIXUP-CODE-OBJECT