X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fhppa-vm.lisp;h=70f0bbc2752b2c2205467f4eb62cd00244d8607e;hb=a6a12ed609d5467ec43b411283e5b3568fee81df;hp=5573841a759b6f8ae9aad6b3746829b009d60826;hpb=cea1ec65893c8ec5a7733fd7befdd68ffdbce8d5;p=sbcl.git

diff --git a/src/code/hppa-vm.lisp b/src/code/hppa-vm.lisp
index 5573841..70f0bbc 100644
--- a/src/code/hppa-vm.lisp
+++ b/src/code/hppa-vm.lisp
@@ -2,15 +2,11 @@
 
 (define-alien-type os-context-t (struct os-context-t-struct))
 
-;;;; MACHINE-TYPE and MACHINE-VERSION
+;;;; MACHINE-TYPE
 
 (defun machine-type ()
   "Returns a string describing the type of the local machine."
   "HPPA")
-
-;;; support for CL:MACHINE-VERSION defined OAOO elsewhere
-(defun get-machine-version ()
-  nil)
 
 ;;;; FIXUP-CODE-OBJECT
 ;FIX-lav: unify code with genesis.lisp fixup