From 0a926e5350dad573424d0414d8d63f87efe70546 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C3=81kos=20Kiss?= Date: Tue, 18 Jul 2023 05:33:30 +0200 Subject: [PATCH] Fix interning of symbols into wrong package --- chronogram-dist.lisp | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/chronogram-dist.lisp b/chronogram-dist.lisp index 28449d6..cfc82db 100644 --- a/chronogram-dist.lisp +++ b/chronogram-dist.lisp @@ -8,21 +8,21 @@ (in-package #:chronogram-dist) (defun make-chronogram-info (contents dist-dir) - (multiple-value-bind (info language script territory variant) - (chronogram-cldr-parser:parse-cldr contents) - (with-open-file (stream (format nil "~a~{~a~^_~}.lisp" - dist-dir - `(,language - ,@(when script - (list script)) - ,@(when territory - (list territory)) - ,@(when variant - (list variant)))) - :direction :output - :if-exists :supersede - :if-does-not-exist :create) - (let ((*package* (find-package 'chronogram-cldr-parser))) + (let ((*package* (find-package 'chronogram-cldr-parser))) + (multiple-value-bind (info language script territory variant) + (chronogram-cldr-parser:parse-cldr contents) + (with-open-file (stream (format nil "~a~{~a~^_~}.lisp" + dist-dir + `(,language + ,@(when script + (list script)) + ,@(when territory + (list territory)) + ,@(when variant + (list variant)))) + :direction :output + :if-exists :supersede + :if-does-not-exist :create) (format stream "~s~%" info))))) (defun make-dist ()