declare ftype on an argument of function style-warning

Albus Matt Piroglu <[email protected]>
Newsgroups gmane.lisp.steel-bank.general
Message-ID <CADwQnUr00vOu17F4_A2LN16DoT=_-Ho2sHcDdrEgDYG0e8ngxQ@mail.gmail.com>
With or without the 'locally below, I get the style warning. Is this
expected?

(defun af (fn1)
  (locally (declare (ftype (function (t) nil) fn1)))
  fn1)
; in: DEFUN AF
;     (FTYPE (FUNCTION (T) NIL) FN1)
;
; caught STYLE-WARNING:
;   undefined function: COMMON-LISP-USER::FN1
;
; compilation unit finished
;   Undefined function:
;     FN1
;   caught 1 STYLE-WARNING condition
⟹ AF
CL-USER⟩ (lisp-implementation-version)
⟹ "2.4.4"

_______________________________________________
Sbcl-help mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/sbcl-help
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.