-
-;;; 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)))
- (let ((result policy))
- (dolist (quality '(speed safety space))
- (let ((iquality-entry (assoc quality ipolicy)))
- (when iquality-entry
- (push iquality-entry result))))
- result)))