context-queries.lisp 646 Bytes
Newer Older
Eric Timmons's avatar
Eric Timmons committed
1
2
3
4
5
6
7
8
9
;;;; Context Queries
;;;;
;;;; This software is part of CLPM. See README.org for more information. See
;;;; LICENSE for license information.

(uiop:define-package #:clpm/context-queries
    (:use #:cl
          #:clpm/context
          #:clpm/session)
10
11
  (:export #:find-system-asd-pathname
           #:output-translations))
Eric Timmons's avatar
Eric Timmons committed
12
13
14
15
16
17

(in-package #:clpm/context-queries)

(defun find-system-asd-pathname (system-name &key context)
  (with-clpm-session ()
    (context-find-system-asd-pathname (get-context context) system-name)))
18
19
20
21

(defun output-translations (&key context)
  (with-clpm-session ()
    (context-output-translations (get-context context))))