tvl-depot/third_party/lisp/asdf-flv/asdf-flv.lisp

65 lines
1.9 KiB
Common Lisp
Raw Normal View History

;;; asdf-flv.lisp --- Implementation
;; Copyright (C) 2011, 2015 Didier Verna
;; Author: Didier Verna <didier@didierverna.net>
;; This file is part of ASDF-FLV.
;; Copying and distribution of this file, with or without modification,
;; are permitted in any medium without royalty provided the copyright
;; notice and this notice are preserved. This file is offered as-is,
;; without any warranty.
;;; Commentary:
;; Contents management by FCM version 0.1.
;;; Code:
(in-package :net.didierverna.asdf-flv)
(defvar *file-local-variables* ()
"List of file-local special variables.")
(defun make-variable-file-local (symbol)
"Make special variable named by SYMBOL have a file-local value."
(pushnew symbol *file-local-variables*))
(defmacro set-file-local-variable (symbol)
"Set special variable named by SYMBOL as file-local.
SYMBOL need not be quoted."
`(make-variable-file-local ',symbol))
(defun make-variables-file-local (&rest symbols)
"Make special variables named by SYMBOLS have a file-local value."
(dolist (symbol symbols)
(pushnew symbol *file-local-variables*)))
(defmacro set-file-local-variables (&rest symbols)
"Set special variables named by SYMBOLS as file-local.
SYMBOLS need not be quoted."
`(make-variables-file-local ,@(mapcar (lambda (symbol) (list 'quote symbol))
symbols)))
(defmethod asdf:perform :around
((operation asdf:load-op) (file asdf:cl-source-file))
"Establish new dynamic bindings for file-local variables."
(progv *file-local-variables*
(mapcar #'symbol-value *file-local-variables*)
(call-next-method)))
(defmethod asdf:perform :around
((operation asdf:compile-op) (file asdf:cl-source-file))
"Establish new dynamic bindings for file-local variables."
(progv *file-local-variables*
(mapcar #'symbol-value *file-local-variables*)
(call-next-method)))
;;; asdf-flv.lisp ends here