-
-;;; Return a POLICY that defaults any unsupplied optimize qualities in
-;;; the INTERFACE-POLICY with the corresponding ones from the POLICY.
-(defun make-interface-policy (lexenv)
- (declare (type lexenv lexenv))
- (let ((ipolicy (lexenv-interface-policy lexenv))
- (policy (lexenv-policy lexenv)))
- (make-policy
- :speed (or (policy-speed ipolicy) (policy-speed policy))
- :space (or (policy-space ipolicy) (policy-space policy))
- :safety (or (policy-safety ipolicy) (policy-safety policy))
- :cspeed (or (policy-cspeed ipolicy) (policy-cspeed policy))
- :brevity (or (policy-brevity ipolicy) (policy-brevity policy))
- :debug (or (policy-debug ipolicy) (policy-debug policy)))))