From fb9f017973cf9eda49ea8fc131439911405aee0b Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Sun, 10 Apr 2011 10:01:43 +0200
Subject: [PATCH] Fixed typo in cmptables.lsp

---
 src/cmp/cmptables.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/cmp/cmptables.lsp b/src/cmp/cmptables.lsp
index b2135a64b..eb6642ee1 100644
--- a/src/cmp/cmptables.lsp
+++ b/src/cmp/cmptables.lsp
@@ -220,7 +220,7 @@
     (go . p1go)
     (unwind-protect . p1unwind-protect)
     (ordinary . p1ordinary)
-    (si::fset . p1fset)
+    (sys::fset . p1fset)
     (var . p1var)
     (values . p1values)
     (location . p1trivial) ;; Some of these can be improved
@@ -230,7 +230,7 @@
     (load-time-value . p1trivial)
     (c::with-stack . p1with-stack)
     (c::stack-push-values . p1stack-push-values)
-    (c::structure-set . p1structure-set)
+    (sys::structure-set . p1structure-set)
     ))
 
 (defun make-dispatch-table (alist)