From 87f60d3db1f6b183494c446e8d34b07ea80d07c9 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Thu, 4 Mar 2010 20:39:32 +0100 Subject: [PATCH] Source offsets were not used in cmpdefs.lsp --- src/cmp/cmpdefs.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/cmpdefs.lsp b/src/cmp/cmpdefs.lsp index 5dd65d727..31abdcaac 100644 --- a/src/cmp/cmpdefs.lsp +++ b/src/cmp/cmpdefs.lsp @@ -191,7 +191,7 @@ (debug 0) ;;; Debug quality (file (car ext:*source-location*)) ;;; Source file or NIL - (file-position *compile-file-position*) + (file-position (or (cdr ext:*source-location*) *compile-file-position*)) ;;; Top-level form number in source file )