From d72bd5e7e8e1060018db3357525d55d6cd7aa41f Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Thu, 5 Jan 2017 08:52:21 -0500 Subject: [PATCH] Fix redundancy --- src/code/print.lisp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/code/print.lisp b/src/code/print.lisp index aed434890..ca1847abf 100644 --- a/src/code/print.lisp +++ b/src/code/print.lisp @@ -376,11 +376,9 @@ variable: an unreadable object representing the error is printed instead.") (defmethod print-object ((object array) stream) (output-array object stream)) (defmethod print-object ((object system-area-pointer) stream) (output-sap object stream)) (defmethod print-object ((object weak-pointer) stream) (output-weak-pointer object stream)) -(defmethod print-object ((object lra) stream) (output-lra object stream)) (defmethod print-object ((object code-component) stream) (output-code-component object stream)) (defmethod print-object ((object fdefn) stream) (output-fdefn object stream)) -#!-(or x86 x86-64) -(defmethod print-object ((object lra) stream) (output-lra object stream)) +#!-(or x86 x86-64) (defmethod print-object ((object lra) stream) (output-lra object stream)) (defmethod print-object ((x t) stream) (if *print-pretty* -- 2.11.4.GIT