X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcoerce.lisp;h=e257fd731ded492d7a0d39e4536eff93976ef53e;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=6d0a3cfe9ab828187d626bc5900b9c10459f1c24;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git diff --git a/src/code/coerce.lisp b/src/code/coerce.lisp index 6d0a3cf..e257fd7 100644 --- a/src/code/coerce.lisp +++ b/src/code/coerce.lisp @@ -11,9 +11,6 @@ (in-package "SB!IMPL") -(file-comment - "$Header$") - (macrolet ((def-frob (name result access src-type &optional typep) `(defun ,name (object ,@(if typep '(type) ())) (do* ((index 0 (1+ index))