From 3ee58e9081354aed7bc45de457c0171aa78c613c Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Thu, 31 Jul 2008 17:51:40 +0200
Subject: Add PROG1, PROG2, NREVERSE, and ACONS.

---
 list-functions-2.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'list-functions-2.lisp')

diff --git a/list-functions-2.lisp b/list-functions-2.lisp
index 09c8449..9bdb53e 100644
--- a/list-functions-2.lisp
+++ b/list-functions-2.lisp
@@ -115,3 +115,9 @@
 
 (defun mapcon (function list &rest more-lists)
   (%append (apply 'maplist (list* function list more-lists))))
+
+(defun nreverse (list)
+  (reverse list))
+
+(defun acons (indicator value alist)
+  (cons (cons indicator value) alist))
-- 
cgit v1.2.3