maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Squashed 'third_party/lisp/asdf-flv/' content from commit fc5b739

Browse source 
git-subtree-dir: third_party/lisp/asdf-flv
git-subtree-split: fc5b7399767ca35bfb420bbeb9e08494e441dc69
This commit is contained in:
Vincent Ambo 2020-01-17 17:50:14 +00:00
commit 45fea96d8d
7 changed files with 224 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

64
asdf-flv.lisp Normal file
View file

@ -0,0 +1,64 @@
;;; 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