Lisp : erreur: type d'argument incorrect: num

Bonjour,

J'au un problème avec une programmation lisp
quant le la créer elle marche puis lorsque ferme autocad et que je le relance ainsi que mon programme LISP il ne marche plus et m'affiche

erreur: type d'argument incorrect: numberp: nil

si qqun pourrai me dire ce qui cloche dans mon programme merci



(defun c:st20nappe_inf()
(setvar "cmdecho"0)
;(setq scu0 (getpoint "\n donner point d'origine:"))
;(setq scux (getpoint "\n donner X"))
;(setq scuy (getpoint "\n donner y"))
;(command "scu" "3" scu0 scux scuy)
;(setq d (getdist "\nDonner l'éspacement entre les poteaux: ")) ;Espacement entre les poteau
(setq p0 (getpoint "\nCliquer le point de début de la dalle de TS: ")) ; premier point de la dalle
(setq LONG 0) ; initialise la longueur à 0
(terpri)(setq rep "O") ; saute une ligne

(setq p1 (getpoint "\nCliquer le point extrémité de la dalle: ")) ; p1 = le point de fin de la dalle
(setq p2 (getpoint "\ndonner la ligne de départ:"))
(setq p3 (polar p2 alfa (distance p0 p1)))
(prompt "\nJe dessine patience patience...") ; l'ordi réfléchi
(setq d1 (distance p0 p1)); d1 et le calcul de la distance p0 et p1 qui correspond à la longueur de la dalle
(setq LONG (+ LONG d1)) ; aditionne toute les distances d1 de la boucle
(setq alfa (angle p0 p1)) ; alpha et l'angle entre l'axe horizontal et la droite P0P1
(setq nbre (/ d1 205)) ; nbre détermine le nombre d'espacement en divisant la distance d1 par d

(setq n (fix nbre)); n correspond au nombre de panneau entier pour le déterminer on récupère la valeur entière à nbre
(setq n (+ 1 n)); addtionne tous les n (nbre de panneau)de la boucle
(if (> 205 (rem d1 205))
(progn
(repeat (- n 1) ; repette le dessin panneau
(progn
(setq p4 (polar p2 alfa 0)) ; oriente les panneau
(command "inserer" "ST20_DALLE" p4 1 1 0 "") ; insère le bloc st20
(setq p2 (polar p2 alfa 205))
)
)
)
(progn
(repeat n ; répette le dessin du panneau
(progn
(setq p4 (polar p2 alfa 0)) ; oriente les panneau
(command "inserer" "ST20_DALLE" p4 1 1 0 "") ; insère le bloc st20
(setq p2 (polar p2 alfa 205))
)
)
)
)
(setq p0 p1)

(command "polylign" p1 "la" 0 0 p1 "")

(command "inserer" "Fraction_Panneau_ST20" p3 1 1 0 "")
(command "redess")
;(command "scu" "general")
)