1 ;;;; -*- encoding:utf-8 -*-
3 ;; SPDX-License-Identifier: BSD-3-Clause
5 (in-package :parenscript
)
7 (defun parenscript-function-p (symbol)
8 (and (or (gethash symbol
*ps-macro-toplevel
* )
9 (gethash symbol
*ps-function-toplevel-cache
*))
12 (pushnew 'parenscript-function-p swank
::*external-valid-function-name-p-hooks
*)
14 (defun parenscript-arglist (fname)
16 ((gethash fname
*ps-macro-toplevel-lambda-list
*)
18 ((gethash fname
*ps-function-toplevel-cache
*)
21 (pushnew 'parenscript-arglist swank
::*external-arglist-hooks
*)