CL-USER> (defun entry (data)
           (declare (special data))
           (process))

; in: DEFUN ENTRY
;     (PROCESS)
;
; caught STYLE-WARNING:
;   undefined function: PROCESS
;
; compilation unit finished
;   Undefined function:
;     PROCESS
;   caught 1 STYLE-WARNING condition
ENTRY
CL-USER> (defun process ()
           (declare (special data))
           (incf data))
PROCESS
CL-USER> (entry 6)
7
CL-USER> (entry 6)
7
CL-USER>