Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fixed package lock violations.

This fixes bug 1861981 reported by Aneil Mallavarapu on the SourceForge bug tracker.
  • Loading branch information...
commit d4588b1388d3b440fdafcf540fa50b76401d2969 1 parent f6c6f14
@johanlindberg authored
Showing with 6 additions and 6 deletions.
  1. +4 −4 src/core/conditions.lisp
  2. +2 −2 src/core/fact-parser.lisp
View
8 src/core/conditions.lisp
@@ -52,11 +52,11 @@
(format strm " (~A)" (text condition))))))
(define-condition class-parsing-error (parsing-error)
- ((class-name :initarg :class-name
- :initform nil
- :reader class-name))
+ ((cls-name :initarg :cls-name
+ :initform nil
+ :reader cls-name))
(:report (lambda (condition strm)
- (format strm "Class parsing error: ~A, ~A" (class-name condition) (text condition)))))
+ (format strm "Class parsing error: ~A, ~A" (cls-name condition) (text condition)))))
(define-condition rule-parsing-error (parsing-error)
((rule-name :initarg :rule-name
View
4 src/core/fact-parser.lisp
@@ -29,14 +29,14 @@
(unless (and (consp default-form)
(eq (first default-form) 'default)
(= (length default-form) 2))
- (error 'class-parsing-error :class-name class-name
+ (error 'class-parsing-error :cls-name class-name
:text "malformed DEFAULT keyword"))
(second default-form))
(build-one-slot (template)
(destructuring-bind (keyword slot-name &optional default)
template
(unless (eq keyword 'slot)
- (error 'class-parsing-error :class-name class-name
+ (error 'class-parsing-error :cls-name class-name
:text "unrecognized keyword: ~A" keyword))
`(,slot-name
:initarg ,(intern (symbol-name slot-name) 'keyword)

0 comments on commit d4588b1

Please sign in to comment.
Something went wrong with that request. Please try again.