From d00d265eb3026c34cbcf10b47f5ea155ecbe62d7 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 26 Sep 2009 19:44:31 +0000
Subject: Fix typo

---
 src/boot/strap/ast.clisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/boot/strap')

diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp
index e60ca665..94c01076 100644
--- a/src/boot/strap/ast.clisp
+++ b/src/boot/strap/ast.clisp
@@ -1058,8 +1058,7 @@
 (DEFUN |bfHas| (|expr| |prop|)
   (COND
     ((IDENTP |prop|) (LIST 'GET |expr| (LIST 'QUOTE |prop|)))
-    (T (|bpSpecificErrorAtToken|
-           "expected identifier as property name"))))
+    (T (|bpSpecificErrorHere| "expected identifier as property name"))))
 
 (DEFUN |bfApplication| (|bfop| |bfarg|)
   (COND
-- 
cgit v1.2.3