X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcoerce.lisp;h=e257fd731ded492d7a0d39e4536eff93976ef53e;hb=f392742d2781f42b3bb15b637e5008e10fbbe092;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))