Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Removing accessors - patches from Michał Psota

  • Loading branch information...
commit 17f8c321a1ed06391c240f3dcaca598ba53055c1 1 parent fef4be3
rneeser authored
View
5 AUTHORS
@@ -1,2 +1,5 @@
Authors:
- Rudolph Neeser <rudy.neeser@gmail.com>
+ Rudolph Neeser <rudy.neeser@gmail.com>
+
+Contributors:
+ Michał Psota
View
13 ChangeLog
@@ -1,3 +1,16 @@
+2012-03-31 Rudy Neeser <rudy.neeser@gmail.com>
+
+ * cl-heap-tests.asd (:cl-heap-tests): Updated version number to
+ 0.1.5
+
+ * cl-heap.asd (:cl-heap): Updated version number to 0.1.5
+
+ * heap.lisp (print-object):
+ Removed unnecessary slot accessor. Patch by Michał Psota.
+
+ * fibonacci-heap.lisp (concatenate-node-lists):
+ Removed unnecessary slot accessors. Patch by Michał Psota.
+
2010-09-04 Rudy Neeser <rudy.neeser@gmail.com>
* binary-heap.lisp (children-positions, parent-position)
View
4 cl-heap-tests.asd
@@ -1,6 +1,6 @@
;;; -*- Mode: Lisp; -*-
;;;
-;;; Copyright 2009-2010 Rudolph Neeser <rudy.neeser@gmail.com>
+;;; Copyright 2009-2010, 2012 Rudolph Neeser <rudy.neeser@gmail.com>
;;;
;;; This file is part of CL-HEAP
;;;
@@ -28,7 +28,7 @@
(defsystem :cl-heap-tests
:description "Tests for the CL-HEAP package, an implementation of
heap and priority queue data structures."
- :version "0.1.3"
+ :version "0.1.5"
:author "Rudy Neeser <rudy.neeser@gmail.com>"
:license "GPLv3"
:depends-on (:xlunit :cl-heap)
View
4 cl-heap.asd
@@ -1,6 +1,6 @@
;;; -*- Mode: Lisp; -*-
;;;
-;;; Copyright 2009-2010 Rudolph Neeser <rudy.neeser@gmail.com>
+;;; Copyright 2009-2010, 2012 Rudolph Neeser <rudy.neeser@gmail.com>
;;;
;;; This file is part of CL-HEAP
;;;
@@ -27,7 +27,7 @@
(defsystem :cl-heap
:description "An implementation of heap and priority queue data structures."
- :version "0.1.4"
+ :version "0.1.5"
:author "Rudy Neeser <rudy.neeser@gmail.com>"
:license "GPLv3"
:serial t
View
17 fibonacci-heap.lisp
@@ -1,4 +1,5 @@
;;; Copyright 2009-2010 Rudolph Neeser <rudy.neeser@gmail.com>.
+;;; Copyright 2012 CL-HEAP (See AUTHORS file).
;;;
;;; This file is part of CL-HEAP
;;;
@@ -81,16 +82,10 @@
(:method ((lhs null) (rhs node))
rhs)
(:method ((lhs node) (rhs node))
- (with-slots ((lhs-next next)
- (lhs-last last)
- (lhs-item item)) lhs
- (with-slots ((rhs-next next)
- (rhs-last last)
- (rhs-item item)) rhs
- (psetf (node-next lhs) rhs
- (node-last (node-next lhs)) (node-last rhs)
- (node-last rhs) lhs
- (node-next (node-last rhs)) (node-next lhs))))
+ (psetf (node-next lhs) rhs
+ (node-last (node-next lhs)) (node-last rhs)
+ (node-last rhs) lhs
+ (node-next (node-last rhs)) (node-next lhs))
lhs))
@@ -390,4 +385,4 @@ O(n + m), where n and m are the number of items in each heap."
(if (node-marked-p parent)
(cut-node heap parent)
(mark-node parent)))))
- heap)
+ heap)
View
4 heap.lisp
@@ -1,4 +1,5 @@
;;; Copyright 2009-2010 Rudolph Neeser <rudy.neeser@gmail.com>.
+;;; Copyright 2012 CL-HEAP (See AUTHORS file).
;;;
;;; This file is part of CL-HEAP
;;;
@@ -113,6 +114,5 @@
(defmethod print-object ((heap heap) stream)
(print-unreadable-object (heap stream :type t :identity t)
- (with-slots (key sort-fun) heap
- (format stream "Size: ~A" (heap-size heap)))))
+ (format stream "Size: ~A" (heap-size heap))))
Please sign in to comment.
Something went wrong with that request. Please try again.