qrmapper-init.lisp 1.27 KB
Newer Older
1
2
3
4
;;; qrmapper-init.lisp --- qrmapper initialization file

;; Copyright (C) 2018 EPITA Research and Development Laboratory

5
;; Author: Antoine Martin
6
;; Maintainers: Antoine Martin and Didier Verna
Didier Verna's avatar
Didier Verna committed
7
;; Contact: Quickref Maintainers <quickref@lrde.epita.fr>
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

;; This file is part of Quickref.

;; Permission to use, copy, modify, and distribute this software for any
;; purpose with or without fee is hereby granted, provided that the above
;; copyright notice and this permission notice appear in all copies.

;; THIS SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.


;;; Code:

26
(in-package :cl-user)
Antoine Martin's avatar
Antoine Martin committed
27
28
29

(defmacro with-qrmapper-output ((stream file) &body body)
  `(with-open-file (,stream ,file :direction :output
30
31
				  :if-exists :append
				  :if-does-not-exist :create)
Antoine Martin's avatar
Antoine Martin committed
32
33
34
     ,@body))

(export 'with-qrmapper-output)
35
36

;; qrmapper-init.lisp ends here