X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcompiler%2Ffndb.lisp;h=8221b101ebd9be753a93e37bf112e555e6ee6fad;hb=f32ee7df37cdc62596e849c079f365000424a712;hp=ac1482d23b51f626e1fa107d3bdcd2bc4c4fb5be;hpb=03e8baab974e52e86df105ee269e83efd65e3d8e;p=sbcl.git

diff --git a/src/compiler/fndb.lisp b/src/compiler/fndb.lisp
index ac1482d..8221b10 100644
--- a/src/compiler/fndb.lisp
+++ b/src/compiler/fndb.lisp
@@ -706,6 +706,7 @@
 ;;; All but last must be of type LIST, but there seems to be no way to
 ;;; express that in this syntax.
 (defknown append (&rest t) t (flushable))
+(defknown sb!impl::append2 (list t) t (flushable))
 
 (defknown copy-list (list) list (flushable))
 (defknown copy-alist (list) list (flushable))