Browse files

Fixed possible errors; introduced possible errors

  • Loading branch information...
1 parent 2cc3da8 commit 5fe3c8d07cab113bd4b7d3fb49f7fbb48822163e @yasht yasht committed Jan 21, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 structs.lisp
View
2 structs.lisp
@@ -17,7 +17,7 @@
;Rooms, people, objects...
(defstruct locale name light north east south west northeast southwest northwest southeast players objects)))) ;To prevent bugs with players and objects, create a "build-room" function that takes a name, setfs a var to the room, calls players-at and objects-at to define the objects and players....
-(defun players-at-aux (location-name) (defparameter (players-at-aux-1 location-name) (list nil))) ;This needs an aux function itself due to being a list....Ugly, I know....
+(defun players-at-aux (location-name) (defparameter #'(players-at-aux-1 location-name) #'(list nil))) ;This needs an aux function itself due to being a list....Ugly, I know....
(defun players-at-aux-1 (location-name) (concatenate 'string "players-" location-name))
(defun players-at (name-room list-players)
(dolist (players-i (mapcar #'username-variable *registered-usernames*))

0 comments on commit 5fe3c8d

Please sign in to comment.