Commit 9927d909 authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld
Browse files

Remove old movitz-eql.

parent 71f28edf

storage-types.lisp

+1 −8
Original line number Diff line number Diff line
@@ -9,7 +9,7 @@ 
;;;; Created at:    Sun Oct 22 00:22:43 2000

;;;; Distribution:  See the accompanying file COPYING.

;;;;                

;;;; $Id: storage-types.lisp,v 1.63 2008/04/02 20:47:09 ffjeld Exp $

;;;; $Id: storage-types.lisp,v 1.64 2008/04/12 16:26:56 ffjeld Exp $

;;;;                

;;;;------------------------------------------------------------------
@@ -237,13 +237,6 @@ integer (native lisp) value." 
  (print-unreadable-object (x stream)

    (format stream "MOVITZ-CHARACTER: ~S" (movitz-char x))))



(defun movitz-eql (x y)

  (if (and (typep x 'movitz-immediate-object)

	   (typep y 'movitz-immediate-object))

      (= (movitz-immediate-value x)

	 (movitz-immediate-value y))

    (eq x y)))



;;; Code element



(define-binary-class movitz-code (movitz-immediate-object)