From 3d6e80b447ef96cdac3aada1f2ca08073648294f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Sun, 12 Mar 2023 14:32:50 -0300 Subject: Tidy up different stuff --- utils.lisp | 11 ----------- 1 file changed, 11 deletions(-) delete mode 100644 utils.lisp (limited to 'utils.lisp') diff --git a/utils.lisp b/utils.lisp deleted file mode 100644 index d0f61d5..0000000 --- a/utils.lisp +++ /dev/null @@ -1,11 +0,0 @@ -(in-package #:utils) - -(defmacro with-package (pkg-sym &body body) - (let ((pkg-name (symbol-name pkg-sym))) - (unless (find-package pkg-name) - (make-package pkg-name)) - (let ((body-as-string (format nil "(cl:progn ~{~s~&~})" body)) - (body-as-form)) - (let ((*package* (find-package pkg-name))) - (setq body-as-form (read-from-string body-as-string))) - body-as-form))) -- cgit v1.2.3